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Section 1 



CHAPTER 1 



1.1 Brinqina Ud The INS807J System 

Ail the examples are based around the examole system shown in Section 
3, Figure 1-4. 

For those of you who have designed your own system, with heln from 
Section 3 of this manual, it is assumed that you have the exoerience 
to intemret the following instructions to suit your 6wn system. The 
sequence below tells how to hook the standard MSG Tiny BASIC card shown 
in Section 3, Figure 1-4, to a power suoply and TTY or CRT to get it 
running. 

Things needed t 

Power SuDplyt +5, 

-I2V (For serial communications) 
Optionally '•■25 (For PROM oroaranner) 

A power supply cable can be connected directly to the board at 
the PI mounting, or stake pins can be inserted and the power 
sudpIv can be connected throuah a suitable connector, i.e., 
MOLEX Myi-9 6471. A cable or connector is attached to Power 
SuDoly in the followinq order* 



CONDUCTOR P'lN# 


1 


2 


3 


4 


VOLTAGE 


♦5 


-12 


+25 


GND 



If you're using a TTY, it must be connected for 2f^'mA current 
loop, as described in its own manual, and will connect to the 
edge connector fingers in the following manner* 



PIN4f 


1 


2 


3 


4 


5 


6 


SIGNAL 


XNT+ 


XNT- 


RCV + 


RCV- 


RD RLY+ 


RD RLY- 



Pin numbers are etched onto the board, remember that Pin 6 
is the one closest to the edge of the card on the side with 
the comnonenets. 

If you-'re using a CRT terminal, you should hook it uo with a 
standard MALE-MALE cable, (National-'s 601305491-001 1 will do 
Just fine), to the RS-232 (D-tyoe) connector on the board. 
Make sure your terminal is set to RS-232 (if that's a switch 
selectable ootion, if not. Just assume it is an RS-232 termin- 
al); and make certain unper case and full dunlex are selected. 

1 .2 Baud Rates 

Generally, the higher the Baud Rate, the better, as it means less 
waiting time for youi however, if you are using a TTY you have no 
choice. The Baud Rate must be set to 1 IP*. 
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The way you set the Baud Rate is with the two lumners F1.S-FI9, ^16-HI7. 
We can call FI8-H19 , and RI6-H17 DI. Set the Baud Rate on a 
terminal to the hiqhest rate, or 4R(^0, which- evpr is lower, set the 
jumpers to match it as shown in the diagram below. A sianifies 
that the fumoer is missina, a means that it is Installed, 





R16-qi7 

D? 


RI8-RI9 
Dl 


\](^ 


0 


0 


3m 


0 


1 


\2m 


1 


0 


4sm 


1 


1 



After you have done all of this, and double checked it, connect the 
board to the CRT terminal or TTY, warm ud the terminal, hook ud the 
Dower sunnly, then turn on the nower. 

If all went well, you should aet a rioht oointinq caret (>) oromot. 
Push the RESET button and the orompt (>) should aooear aqain. You are 
now ready to begin using your 8073 system. 
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2.1 Introduction 



CHAPTER 2 



The INS8073 is a sinale-chin comouter that directly executes NSC Tiny 
BASIC, a high-level lanquage. Writing orograms in NSC Tiny BASIC 
offers the following ^^dvantages over writing orograms in assembly 
language* 

• Programs written in NSC Tiny BASIC eliminate the need for memory 
consuming Editor, Assembler Monitor/Debug orograms.* Ail of these 
functions are built in. 

• Programs may be written and debugged using a small, inexoensive 
system. Purchase of an exnensive development system is not 
required. 

• Program debuoging is fast and simole. Program execution may be 
suspended, variables and other parameters examined/altered, errors 
corrected, and execution resumed at the point where it was 
suspended - all without the need to reassemble or reload the 
program. (NSC Tiny BASIC programs do not have to be assembled.) 

• Programs can be written in one tenth the time of eguivalent assembly 
language proorams due to the power of the NSC Tiny BASIC language, 
its English-like simplicity and built in edit/debug capability. 
Programs are also easy to maintain because they are self documenting. 

• Programs are relocatable! they may be loaded and executed anywhere ir 
memory without modification. 

• Program memory can be quickly checked for valid code because NSC Tin\ 
BASIC proorams are stored as a sequence of ASCII characters. 
(Executable assembly language programs are considerably more 
difficult to check because they are stored in memory as a sequence oi 
binary numbers). 

NSC Tiny BASIC was designed for use on the INS8073 single-chip micro- 
interpreter, a orpduct of National Semiconductor Corporation. NSC 
Tiny BASIC is a simplified version of the computer language, BASIC, 
"Beginners All-Durpose Symbolic Instruction Code", developed by 
Dr. John Kemeny and Dr. Thomas Kurtz at Dartmouth College in 1963. 
BASIC has become the "People's Computer Language" because it is 
easy-to-1 earn and easy-to-use by people who are not computer 
scientists or professional programmers. The users of BASIC are 
engineers, technicians, scientists, statisticians, business people, 
hobbyists, teachers, college students, and a vast multitude of 
young people in elementary and secondary schools. 

The original NSC Tiny BASIC was desinned for applications ftuch as 
integer arithmetic problems, computer games and teaching beginners 
how to nrooram computers. NSC Tiny BASIC has extended can«bilities 
that make it a powerful design tool for developing control aoplica- 
tipns. 
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Information on NIRL uoon which NSC Tiny BASIC was first oublishprl in 
People^s Computer Compan y. Volume 3, Number 4 (March 1975) and Volume 
4, Number 1 (July 1975). The best source of information on Tiny BASIC 
is Dr. Dobb-^s Journal of Computer Calisthenics and Orthodontia , 
beginning with Volume 1, Number l (January 1976) and continuing through 
several issues. 

This book is designed to help you teach yourself how to use NSC Tiny 

BASIC and the INS8073I it consists of three ma !or sections* 

* f. 

SECTION 18 A primer designed for self study. This self teaching 
orimer presents the elements of NSC Tiny BASIC in a step-by-steo 
manner. It is assumed that the rf^ader has access to an INS8C^73-based 
system and will try out the examples and exercises as they are 
presented in the primer. It is also assumed that the -reader has no 
previous 'computer programming training or experience, but is 
exnerienced in electronic hardware design using non-comouteri zed 
t echniques . 

SECTION 2« A guide that nrovides guick reference to information for 
people who^have worked through the primer, or, who already know how to 
program in some form of BASIC, 

SECTION 3« A description of a typical INSB073 system! details on 
setting uo the computer system and getting NSC Tiny BASIC running. 
Section 3 assumes that the reader has a prior knowledge of digital 
electronics? and, this section gives schematics and a riescriotion 
of an example RC^73 NIBL-II demonstrator card. 
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CHAPTER 3 



3,1 Introduction 

The INS8073 is a * task-oriented^' microinteroreter, NSC Tiny BASIC is 
the language that instructs the system to oerform various and sundry 
functions. 

The use of microcomouters to control electronic, electrical and 
electromechanical devices is very much an enaineer-'s tiream come true. 
A comouter works from a written out soecif ication of what the 
completed device is supposed to do. This specification, written in 
a very exact and unambiguous style, is called a proaram. As with 
specifications and schematics there are conventions about exactly 
how a program is to appear. This set of conventions Is called a 
language. The language used on this computer is a' version of 
BASIC called NSC Tiny BASIC. 

When setting out a schematic for someone who is not up to your back- 
ground in electronics, you have to spell everything out in more detail 
than you would for a colleague who is right with you. Until a computer 
knows as much as you want it to know, everything must be spelled out 
in a meticulous and precise manner. Once these instructions ere 
spelled out - that-'s it? the computer will henceforth do it right 
every time. 




Figure 3.1. INS8073 Based System 
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3.2 TTY/CRT Terminal 



You will probably be using a Hodel 33 Teletype or a CRT I Cathode- 
Ray-Tube) terminal to communicate with your INS8073. In the follow- 
ing text, TTY (Teletype) and CRT .(Cathode-«Ray-Tube) are used inter- 
changeably. 

The letters of the l^oman alphabet and Arabic numerals were invented 
long before computers when Jiobody cared that the letter *0" looked 
Just like a zero. It Is, however < very Important for' the computer to 
tell them apart? therefore, the numeral zero is written as an "O" 
with a slash through it (0). The letter ^O" is left alone. Most 
Teletypes will prlj^t the zero character jwith a slash and an "0* 
without a slash! check your teletype to make sure it observes this 
convention. 

When programming, sometimes you will type to the computer, sometimes 
the computer will type to you. When it is the computer's turn, 
it just goes ahead and types. When the computer is ^thinking" it 
acts as if you were not there. When it is your turn to type the 
computer prompts you by typing the character on the left margin 
of the paper/ screen. The right pointing caret (>) is called the 
"prompt^ character. After typing the prompt, the computer will 

wait patiently until you type something. 

NSC Tiny BASIC recognizes only CAPITAL LETTERSI lower case letters are 
not used at all. (The Model 33 Teletype doesn't have any lower case 
letters.) Your CRT may or may not have lower easel if it does, switch 
the upper/lowercase switch to upper case. 
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3.3 Beqinninq Instructions 



Think of sortiethinq you know how to do like bicycling, skiino, olayinq 
^iano or designing circuitry. One thing is certains there are no 
oooks in the world that can teach someone how to do any of these 
things. Books can heln, but without getting on a bike, putting on 
skis, practicing scales, or designing hundreds of circuits and trying 
them out, a novice can't do any of these things. Same way with 
orogramming. 

The only way to learn orogramming is by doing it. With bicycling or 
skiing you may end up with skinned shinsi with orogramming you may 
experience a dented ego. PeopLe d*^n't like to be, told they-'re wrongi 
unfortunately for the novice p^qrammer, error messages are jwhat he/she 
will get most frequently from ^e computer; 

For your reference, the NSC Tiny BASIC FRROR CODF SUMMARY is listed 
below? what it means is that if NSC Tiny BASIC encounters an error 
condition in RUN command mode, it will orint out ERROR followed by an 
error number. Frror numbers are« 

Table 3-t . NSC Tiny BASIC Error Code Summary 

ERROR NBR. EXPLANATION 



3.4 Start Un 

Before you oower-uo, be certain that your system is oroperly connected 
and that the Baud Rate Selector is set. Once you have turned on your 
INS8073 system, the TTY or CRT will tyoe a orompt character (>) to 
indicate that it is ready to begin. When you are ready to enter a 
nrooram with line numbers, type the following^ 

>NEW #address (hexadecimal address location) 
NEW 

The above command (NEW #address, NEW) is usedt 

1 . To prepare the computer for a new program with line numbers. 
2. For initial oower-uo. 



2 

3 

4 

5 

6 

7 

8 

9 

10 

1 I 

12 



Out of memory 

Statement used improperly 

Unexpected character (after legal statement) 

Syntax error 

Value (format) error 

Ending auote missing from string 

GO target line does not exist 

RETURN without previous GOSUB 

Exoression or FOR-NEXT or DO-UNTIL nested too deeply 
NEXT without previous matching FOR 
UNTIL without previous DO 
Division by zero 
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3. If you RESET your sysf^m in the middle of a proaramminQ session 
you may have to use this command. Try to avoid this because you can 
easily lose all oroqrams In your system^s memory. 

4. If you wish to store several oroarams in memory. Fach oroaram 
will have a different hexadecimal address location, for examole* 

Program I - NEW #1000 
NEW 

Program 2 - NEW #4B50 
NEW 

Tne NEW (carriage return) command,; erases an old orogram? the LIST 
command lists your program and the RUN command runs, your program. 

Importantf when you are finished tyoing/talking to the computer, you 
signal by pressing the RETURN key. This Indicates that you are 
finished with your turn. 



Tyoe yotir name and then press 
should haoDent 



the RETURN keyt the following is what 



ERROR 4 



The computer responds with ERROR 4. ERROR 4 is 
listed in this chanter and in Appendix C under the 
Error Code Summary and is a "Syntax Error**. This 
is because NSC Tiny BASIC does not recognise your 
name as a command. 



NSC Tiny BASIC then types a prompt (>) to 
know it is still listening and that it is 
turn to communicate. 



let you 
still your 



This is the first examnle of an error message. It is the one you will 
see most often, and it means only that you have typed something that 
NSC Tiny BASIC doesn-'t understand. NSC Tiny BASIC does not understand 
your name simply because it is not in its repertory of commands. 
Examine the following legal commands. 



3.5 The Print Instruction 

The computer gets Jobs done by following instructions. If an in- 
struction is correctly tyoed, the computer will execute it immediate- 
ly. (When a computer follows an instruction it is said to obey, 
or execute that instruction.) One of the most useful instructions is 
the one that tells the computer to PRINT a desired result or message. 
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In Rnolish we say that antelopes have four leqs, but we say that 
**anteloDes" has nine letters. One of the things we do by putting words 
into Quotes is to indicate that we are referring to the words 
themselves and not their meanings. The computer uses auotes the same 
way. 

For example, suppose, in a boiler installation that the computer is 
monitoring the water level. If the level begins to get low (but not 
low enough to warrant automatic shut down) you might wan J the computer 
to print* ^Warning, the water level 'is low.". The instruction you 
desire to give the computer ls« 

>PRINT "WARNING, THE WATPR LEVEL IS LOW-»« 

Don't forget to press the RETURN button to make the computer execute 
the instruction. 

You typet PRINT "WARNING, THE WATER LEVEL IS LOW« 

The microinterpreter types* WARNING, THE WATER LEVEL IS LOW 

NSC Tiny BASIC typed what you told it to type? note that the message 
was enclosed in Quotation marks, but they were not printed. 

Suppose that the operator in the boiler installation was away from the 
terminal, or taking a nap, or having a coffee break. In any of these 
instances he may not see the warning message. The TTY has a bell which 
may be used as an alarm. (Other terminals may have different audible 
alarms - a click, beep, buzz etc.) To sound the bell, hold down the key 
barked CTRL, CNTRL or CONTROL and, while holding it down, press the G 
key. On most TTYs, the G key has the word BELL on it as a reminder. 



* * 

* To ring the bell, hold CTRL down and * 

* press G * 

* * 




Hold the CTRL key down and press the G key several times! this will 
allow you to ring the bell several times. You will note that the 
bells are heard yet nothing is printed on the TTY.* (Appendix shows 
other non-printing characters which may be useful.) 
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Bells (CONTROL/G) can be included in a PRINT Instruction. Let's 
use the example of the boiler installation aqain and orint the same 
warning nipssage, only this time add the bell to be certain that the 
ooerator knows there-'s an important messaget 

You tyoe« 

PRINT "WARNING, WATER LEVEL IS LOW (CTRL GGGGGG)" 

Don-'t forget to press the RETURti key so that NSC Tiny BASIC knows yo 
are through with your instruction. 

NSC Tiny BASIC tyoest 

WARNING, WATER LEVEL IS LOW and then rings the bell six times. 



3.6 Using The Computer As A Calculator 

NSC Tiny BASIC can do integer arithmetic. Try the following example 
on your INS8073. Remember to oress the RETURN to finish a line of 



typing. 



ADDITION 



You type* PRINT 2+3 
NSC Tiny BASIC typest 5 



Use "-M' to add. 



SUBTRACTION 



You type* PRINT 7-4 
NSC Tiny BASIC tyoesi 3 



Use to subtract. 



jyiULTlPLICATION 



You tvoet PRINT 4*7 
NSC Tiny BASIC tyoest 28 



Use to ffiuitioly. 



DIVISION 



You typet PRINT 48/6 
NSC Ti^y BASIC tyoest 8 



Use "/•« to divide. 
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If you made no typing errors, the above four examoles should actually 
aooear on your TTY oaqe as followsi 



>PRINT 2*3 The oromots (>) were typed by NSC Tiny BASIC 

5 

>PRINT 7-4 
3 

>PR1NT 4*7 
28 

>PRINT 48/6 
8 



Now try the following divisions. 

>PRINT 23/4 
5 

>PRINT 3/2 
I 

>PRINT 4/5 
0 

Is NSC Tiny BASIC giving wrong answers? No. It is simply doina 
integer arithmetic. In division, NSC Tiny BASIC produces the integer 
part of the quotient. 

Using the first example above, >PRINT 23/4, this is what happens* 

5 Quotient. This is what you get when you 
4 /23 tell NSC Tiny BASICi PRINT 23/4 
20 

3 Remainder, You will be instructed later 
on in this manual how to compute the 
remainder. 



Most industrial control applications, as well as tasks such as word 
nrocessing and even the programs that make this language work, need 
only integers. A valve in a refinery may need to be set to one of a 
hundred posit^ions (many anplications only require resolution of two 
positions - opened and closed). These hundred nositions can be 
represented by the integers ^ to !W! with 0 being closed, 50 being 
half opened, and 100 allowing full flow. 
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In NSC Tiny BASIC, Integers can range between the limits of -32768 
and "^32767, inclusive. This allows any measurement or control to be 
accurate to one part in over 65,000. Few electrical or mechanical 
devices in control systems reguire more accuracy. Yet, by anoroDriate 
orograrTMni ng, greater accuracy can be obtained if it is necessary. 

A good way to learn more about how NSC Tiny BASIC does arithmetic is 
to use it as an integer desk calculator. As with any desk 
calculator, it is oossible to overflow if you calculate a number too 
large or small. 

NSC Tiny BASIC handles the problem in two wayst 

I. If you try to type, not calculate but type, a number greater than 
32767nor less than -32767, NSC Tiny BASIC will print aH error 
message. For examplei 



>PRINT 32768 

ERROR 5 Error 5 « Value (format) error 

>PRINT -32768 

ERROR 5 Error 5 « Value (format) error 



2. If you calculate a number outside of this range, no error message 
will be generated! the numbers Just "wrap around**. This method 
of handling overflow is handy on some occasions, but distressing 
at other times. For examolet 



>PRINT 32766-H 
32767 This is the expected answer 

>PRINT 32767+1 
-32768 This is NOT the expected answer 

>PRINT -32767-1 
-32768 This is the expected answer 

>P1?INT -32767-2 
32767 This is NOT the expected answer 

>PR1NT -32768-1 

ERROR 5 Remember, you can^t type —32768 
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Think of NSC Tiny BASIC numbers beina arranged in a circiei 

-I Pi I 
-2 2 
-3 3 
-4 4 
-5 5 



-32764 32764 

-32765 32765 
-32766 32766 
-32767 32767 
-32768 



From th^. v-x.^j.^ 7-- v.dn see that 32765+7 = -32764. (Moving in a 
clockwise direction start at 32765 and count off seven olacesi 
you should end uo at -32764.) Try it on your system. 

>PRINT 32765+7 
-32764 Correct 

To subtract, move in a counter-clockwise direction. For examole, 
-32766-5 = 32765. Again, verify this on your system. 

>PRINT -32766-5 
32765 

NOTE* NSC Tiny BASIC didn^t print the »»correct^' answer (-32771) 

because -3277J is less than -32768. Calculated values will be 
correct only if the correct value is in the range of -32768 to 
32767, inclusive. 



Up to this point you have been shown simple problems with one 
ooeration. The following examples are a bit more complicated. The 
formal rules for how exoressions are evaluated are in thi<; chanter in 
section 3.7; you will understand them better if you experiment on 
these examples first. 

>PRINT 2*3+4 

>PRINT 2*3-4 

2 

>PRINT 2*3+4*5 
26 

>PRINT 2*3-4*5 
-14 

>PRINT 2*3*4*5*6 
72(^ 
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>PRINT 2*3*4*5*6*7 

50419 



>PRINT 2*3*4*5*6*7*8 

-25216 The correct answer is 40 3 20, too big 

for NSC Tiny BASIC. NSC Tiny BASIC 
does not tell you that an incorrect 
answer has occurred. 



If you use only +, - and *, NSC Tiny BASIC will give correct results 
unless the true result is less than -32768 or greater than 32767. 



Try some division oroblemst 



>PRINT 720/2/3/4/5/6 
I 



>PRINT 1/2+1/3+1/4 

0 



Correct. 720/2 * 360, 360/3 = J 20, 
120/4 = 30, 30/5 = 6, and 6/6 = I . 



The integer Quotients are all zero. 
0+0+0 = 0. 



>PRINT 2/3*1000 

0 



>PRINT 1000*2/3 
666 



Incorrect. Two thirds of 1000 does 
not give zero. Try it a different 
way. 



Correct . 



3.7 The Use of Parentheses 

The following examoles illustrate the use of oarentheses in numerical 
expressions. Verify them on your INS8073. 

>PRIKT 2* (3+4) 
14 

>PRINT X2+3)*(4+5) 
45 

>PRINT (2*3+3)*8+7 

79 

>PRINT <47-23)/6 
4 

>PR1NT (2+3)/(4^5) 

0 
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NSC Tiny BASIC does not tell you that a comnuted answer is incorrect 
because the true result is outside the range, -32768 to 32767. For 
example* 

>PRINT 10C^0*(39-7?) 
-32536 The correct answer is 33000 

An incorrect result can occur even if the true result is in NSC Tiny 
BASIC^s ranqe. This will haooen i,f an intermediate calculation lies 
outside the range -32768 to 32767. For examole* 

>PRINT 201*200/2 
-12668 The correct answer is 20100. 

In the above examole you got an incorrect result be'cause NSC Tiny 
BASIC first comouted 201*200 which has a true result of 40200 and 
this is outside its range. NSC Tiny BASIC obtained -25336 for this 
result, then divided by 2. 

>PRINT 201*(200/2) 
20100 Correct. 

Parentheses were used to cause NSC Tiny BASIC to first comoute 200/2, 
then to multiply by 201. 



3.7 Rules For Evaluatino Exnressions 

Division by zero (0) stoos everything and gives the message* 
ERROR 12 

Expressions are evaluated (in the absence of oarentheses) by doing 
all multiplications and divisions from left to right. After they are 
comnleted all additions and subtractions are done, again, from left 
to right. Any fractional results from a division are simoly ignored 
(truncated). The results are not rounded. For example! 

2/3*1000 

is evaluated to zero, since the integer oart of 2/3 is zero, and zero 
times !000 is zero. But* 

1000*2/3 

evaluates to 666 because 1000*2 is 2000 and 2000/3 is 666.66666, (the 
fractional sixes to the right of the decimal point are dropoed). 

The expression 4+6/2+3 evaluates to 10 because the division is done 
first yielding 4+3+3, and then the additions are done from left to 
right. In other words, 4+6/3+3 is evaluated* 

4+6/2+3 = 4+3+3 = 7+3 = 10 
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The order In which ooerations are done is shown below in still 
another way. The numbers in the circles show the order t 

Parentheses override the normal rules. Anything inside a pair of 
oarentheses qets evaluated befone that which is outside. This is the 
normal algebraic convention. Thusi 

(4+6)/(?+3) 

evaluates to 2, thuslyt (4-«S>/(2+3) ^ 10/(2+3) * 10/5 = 2 

Shown below is the order in which ooerations are done by the use of 
numbers in circles. 

(4+6) /( 2+3) 

Parentheses may be nested as needed. This means you can have oaren- 
theses within narentheses. 

12/2*1 2/2*3 =6*12/2*3 = 72/2*3 = 36* 3 = 108 

12/(2*( 12/(2*3))) = 12/(2*(l2/6)) = 12/(2*2) « 1 2/4 = 3 

Or, using the circlest 

1 2/2*1 2/2*3 versus 1 2/( 2*( 1 2/( 2*3) ) ) 

Check these in your head, and then on the comouter. 

Good Drogramming practice avoids exoressions like 12/2*12/2*3 as they 
are hard to read. It is clearer <and thus less error orone) to write 
(( 12/2*1 2 )/2*3) using spacing and oarentheses for clarity even if 
they are not technically necessary. 

Algebraic notation is used in NIBL, modified as necessary to fit on a 
single line and, of course, to use orooer NSC Tiny BASIC arithmetic 
symbols, 

ALGEBRAIC EXPRESSION NSC TINY BASIC EXPRESSION 

36 36/(9*3) 
9 + 3 

12 X 58 ( 1 2*58 ) /( 7*25 ) 
7 X 25 

1 20 X 60 ( 120*60 )/( 120*60) 
120 +60 
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There are limits to the orders of orecedence allowed in any one line. 
These, however, are hard to exnlain, or even find. The rule of thumb 
is that if you get an **ERROR 9" occurring after a oarticularly long 
exoression, try to break that expression into two or more oarts. 

3.8 Mistakes 

Perhaps the deadliest assumption in engineering design is that any- 
body using the eguipment will use it correctly. NSC Tiny BASIC 
provides error messages after it isr too late. If you ^ire working on 
a TTY and are lucky enough to catch yourself in the middle of a 
statement, having Just tyoed an incorrect character, you do not have 
to throw away the good part and retype the whole thing. 

The first mistake correcting facility Is a sort of backsoace. ' Say 
that you typed •••PRINR^ instead of "PRINT»«. If, after the "R" you 
held down the SHIFT key and pressed the letter "O-** you would get a left 
pointing arrow or underline. This means that the last letter you 
typed (the *'R^») is deleted and you can now type the correct letter 
(MX"). Try it a few times. 

>PRINR ?+3 
ERROR 4 PRINT misspelled 

>PRINR_T 2-*-3 After tyning R, tyoe (SHIFT 0), which 

erases the R. Then type the rest of the 
line. Everything is OK to NSC Tiny BASIC, 
although it looks wrong on your TTY. 



The backspace feature can be used repeatedly. It is up to you to 
keep track of just how many letters have been obliterated. 

>PRINT 3+2„5*98 5 

25 

A true backspace feature is provided for use with CRT terminals. 
Pressing the backspace key (or Control H) will erase the last 
character from the screen and memory. 

If you want to cancel an incorrect line entry without having to wait 
for the error message, hold the CTRL button and strike the letter "U". 
NSC Tiny BASIC will type '^U, do a carriage return line feed, then it 
will tyoe the prompt (>) . 

>TYPE AN INCORRECT LINE ENTRY AND PRESS ^RETURN" and get 
ERROR 4 

> 

>TYPE AN INCORRECT LINE ENTRY AND PRESS CONTROL U'^U 
> ^ . No syntax error. 

If you are lucky enough to be using a CRT, just backspace and retyoe 
the offending character. 
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3.9 Exercises 

Comolete the following! 

1 . In NSC Tiny BASIC, numbers are integers in the range 
to , inclusive. 

2. If you typet PRINT "TURN SWITCH NO 3 0N« 

NSC Tiny BASIC will tyoet 

3. If you tyoet PRINT 7*7 

NSC Tiny BASIC will tyoet 

4. -If you tyoei COMR ON NSC TINY BASIC. GFT WITH IT! 

NSC Tiny BASIC will tyoet 

Do the following in your head or with paner and pencil, as you think 
NSC Tiny BASIC would do them. Then, verify your answers. 

5. ?*3+4*5+6*7 = 

6. I23*(42/127) = 

7. 1000*1000 = 

8. 22/7*1000 = 

9. 1000*22/7 = 

You will find the answers to these exercise questions in Aooendlx A. 
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CHAPTER 4 



4.1 Variables 

If, Instead of typinqt 

PRINT 120/4/5 
vou typed 1 

A« I ?(?f/4/5 

the. result (which is 6, as the expression is evaluated from left 
to riqht) would be given the name A, A is called a variable. The 
instructiont 

PRINT A 

would'result in the value 6 beinq printed. The following is the en- 
tire sequence of instructions as they mioht aopear on your TTY paqe 
or CRT screen. 

>PRINT l?0/4/5 
6 

>A«12(?l/4/5 

>PRINT A 
6 

Try another one. 

>A=7 The value 7 was assigned to the variable 

A and the value 5 to the variable B. 
>B=5 Since A=7 and 8=5, A+B will be 12. 

>PRINT A-»-B 
1? 

NSC Tiny BASIC now is instructed to know A=7 and B~5. 

>PRINT A*B 
35 A=7 times B=5 = 35 

In l^SC Tiny BASIC there are 26 variables, the letters of the alphabet 
A through Z. Fach variable mav be best considered as a piqeonhole in 
which exactly one number can be stored. When it is stated that 
K=4325, it means to reolace any prior value that K may have had with 
the new value 4325. The old value is lost. The instruction Gs=T 
tells the computer to make a copy of whatever value is in T and to 
olace that copy in niqeonhole G, In computer larqon the pigeonholes 
are called "memory locations" because they can "remember" values. 
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Later you will see that many more locations are available to store 
data in, but for now there are only 26 variables in NSC Tiny BASICt 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 

Before a variable has been assioned a value ( largon for outting a 
number into a pigeonhole), NSC Tiny BASIC gives it the value 0, It 
is as if lust before you sat riown to use the computer ^someone had 
tyoedi 

A=0 B=0 C=0 etc. 

When you first start NSC Tiny BASIC all the variables will contain 
the value of zero (0). 

Skeptical? Try it out on your system, 

>PRINT A 
0 

>PRINT B 
0 

>PR1NT C 
0 

and so on, if you wish, up to PRINT Z, 

Up to now you have used PRINT statements that orint only one thing, 

>PRINT 7 One thing (7). 

7 One thing ( 7) . 

>PRINT 2*3 One thing (2+3). 

5 One thing (value of 2+3). 

>A=I3 

>PRINT A One thing (A). 

13 One thing (value of A). 

The PRINT statement can print more than one thingf 

>PRINT 7,5 Two things (7 and 5). 

7 5 Two things (7 and 5). 

>PRINT 7+5,7-5 Two things (7+5 and 7-5). 

12 2 Two thinas (values of 7+5 and 7-5). 

>A=7 

>B=5 
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>PRINT A,B 
7 5 



Two 
Two 



things 
things 



(A and B), 

(values of A and B), 



>PR I NT J'^S, 7-5, 7*5,7/5 Four things. 
12 2 35 I Four things. 



NOTEi PRINT 7+7, 7-5, 7*5; 7/5 

^ ^ f 

COMMAS 



You can orlnt two or more things orovlded you separate each thing 
to be printed with a comma in the PRINT statement. 



4.2 Exercises 

Pretend for a few minutes that you are the INS8073 and that NSC Tiny 
BASIC is the language you understand. Show what would haooen if your 
user typed the followingt 



ONE 



TWO 



>A=7 
>B=5 

>PRINT A+R, A-B,A*B,A/B 



>M«47 

>N«9 

>Q=M/N 

>RaM-N*0 

>PRINT M,N,0,R 



THREE 



FOUR 



>A=2 
>B=3 
>C«4 
>D=5 

>PRINT A*B-»-C*D,(A+B)*(C+D) 



>A»37 
>Q=A/10 
>R«A-10*O 
>B=IP'*R-K} 
>PRINT A,B 
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FIVE 
>R=32 

>PRINT R*?2/7,(R*R)*22/7 



You will find the answers in Aooencfix A 
4,3 The Stored Program 

Gontnute the souares of 23, 37, 53 and 88, That is, comoutet 

2 2 2 2 
23 , 37 , 53 and 88 . 

2 

>PRINT 23*23 23 « 23 ★ 23 



2 

>PRINT 37*37 37 = 37 * 37 

1369 

2 

>PRINT 53*53 53 = 53 * 53 

2809 

2 

>PRINT 88*88 88 = 88 * 88 



You can give more of the work to NSC Tiny BASICl do this by storing 
a program to cpmoute the square of a number .don't do it yet. 

10 X=23 

If you did type this is and got an ERROR 
20 PRINT X*X 1 messaae here, it-'s because your RAM is 

not at the default location. To remedy 
this situation, you must tell NSC Tiny 
BASIC where your RAM is with a NEW 
statement. If your RAM is at 
hexadecimal 1000, then you would enter 
NEW #1000 then NEW aqain. For examolet 

>NEW #1000 
NEW 
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Notice that the above oroqram consists of two statements and that 
*»ach «;tatefnent beoins with a line number. 



1« X=P3 



Line Number. A line number can be an integer from 
0 to 32767. 



When statements with line numbers are typed, the statements are not 
executed Immediately. Instead, the statements are stored in memory 
for later execution. 

Before you store the above oroqram, clear out - or erase - any old 
nroqram that miqht be in memory. To do this tyoe* 

NFW #1000 
NHW 

NOTF« NFW #1000 sets the start of orooram oointer at location #100?^ 
hexadecimal. The number symbol (#) is imoortant, this will 
be fully discussed in Chapter 5, 

It is imoortant that the start of program oointer is set to the 
beginning of available RAM. This allows the orogram lines to be 
stored as they are typed in. If your 8073 system differs from 
the one described at length in Section 3t determine the start 
address of the RAM in your system? then, use that address in 
your "NEW" command. 

NSC Tiny BASIC will erase any old program in its memory and get ready 
to accept your new orogram. 



Store the program to compute the square of a number. Type the 
following (except for the promots - NSC Tiny BASIC does that for 
you.). 



>NEW 



> 



NSC Tiny BASIC is ready for a new 
program. 



>NBW 

>I0 

>20 



X=23 

PRINT X*X 



> 



The orogram is now stored in memory. Tp verify this« 



Type LIST and press the RETURN key. 



>LIST^ 

10 X=?3 

20 PRINT X*X 



When you tyoe LIST, NSC Tiny BASIC 
lists the program. 



> 
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To qet a cony of the orogram currently f;tored in the INS8073's 
memory, tyoe LIST and press the RETURN key. RUN the oroqram. 

>RUN 
529 

> 



First NSC Tiny BASIC did this. 
Then 



,10 X«23 

20 PRINT X*X 



That^s all, so the INS8C^73 stooned. 

Look over* the last few inches of TTY paoerl you may. find it looks 
somethifig like the following, (Line soaces have been added to make 
it easier to read.) 



>NHW 



>I0 X=23 

>20 PRINT X*X 

>LIST 



10 X=23 

20 PRINT X*X 

>RUN 

529 



First you erased any old oroqram in the 
system. 

Then you tyned in this two line nrogram. 



Then you asked NSC Tiny BASIC to tyoe 
the oroqram out. 



NSC Tiny BASIC obliged. (Notet No 
p romp t s . ) 

Then you gave the RUN command. 

NSC Tiny BASIC ran the program; this 
was the result, 

> Having done its appointed task, NSC 

Tiny BASIC typed a prompt ... ready for 
more work. 

Change the value of X. To do this, type in a new Line 10. This will 
replace the old Line 10 with the new Line 10. After making this 
change, LIST the modified program. Don^t tyoe NEW. 

>r0 X=37 

>LIST 

10 X=37 This is the new Line 10, 

20 PRINT X*X and the old Line 7.m, 
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You can reolace any line In the program by typing a new line with the 
same line number. To delete any line from a program, simoly type in 
that line's number followed by a carriage return. When the nrooram is 
listed, that line will no lonaer remain. RUN the modified nrogram. 

>RUN 
1369 



> 



4,4 Exercises 

1. Change Line 10 to 10 X=53 then LIST the modified program and HUN 
it. 

7, Chanae Line 10 to 10 X=8B then LIST the modified program and HUN 
it. 

If you did everything on the previous two pages without making any 
typing errors, the TTY page will look like the following. (Again, 
line snaces have been added for readability.) 

REMEMBER 

NEW 1 . To erase any old program and get NSC Tiny 

BASIC ready for a new program, tyoe NEW and 
>10 X=23 press RETURN. 

>20 PRINT X*X 



>LI5T 2, To get a typed copy of the program currently 

>10 X*23 in the INS8073''s memory, type LIST and 

20 PRINT X*X oress RETURN. 

>RUN 3. To tell NSC Tiny BASIC to execute the orogram 

529 in its memory, type RUN and press RETURN. 



>I0 X=37 4. To reolace any single line of a program in 

>LIST memory, tyoe a statement with the same 

line number. 

10 X=37 

20 PRINT X*X 

>RUN 
1369 

>10 X«53 

>LIST 

10 X=53 

20 PRINT X*X 



1-29 



>RUN 
2809 



>I0 X=88 

>LIST 

J0 X=88 

20 PRINT X*X 

>RUN 
7744 



4.5 The - GO TO - Statement 

If you typed the instnictloni 

>PRINT ^THE BO>^T IS SINKING. MAN THH PUMPS!" 

and Dressed the RETURN key, the computer would prints 

THE BOAT IS SINKING. MAN THE PUMPS! 

and then stop. In a situation where a boat was actually sinking, the 
computer should be more insistent and repeat the message (complete 
with bells) until somebody pays attention. There is a way to do 
this. Type in the following program. First tyoe NEW. (Don-'t RUN 
the program yet.) 

>NEW 

>I0 PRINT "THE BOAT IS SINKING. MAN THE PUMPS! (CTRL GGGGGGG)" 
>20 GO TO 10 



Before you RUN this program - you must know how to stop it. When you 
type RUN and press the RETURN key, the TTY will begin running the pro- 
gram and ringing bells. To stop a runaway computer, press BREAK (or 
any other key) until the computer stops. 

Type RUN and press RETURN. 

>RUN 



THE BOAT 
THE BOAT 
THE BOAT 
THE BOAT 
THE BOM 



IS 
IS 
IS 
IS 
IS 



SINKING. 
SINKING. 
SINKING. 
SINKING. 
SINKING. 



MAN 
MAN 
MAN 
MAN 
MAN 



THE 
THE 
THE 
THE 
THE 



PUMPS 
PUMPS 
PUMPS 
PUMPS 
PUMPS 



Bells 
Bells 
Bells 
Bells 
Bells 
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To STOP the oroqram, press BREAK, 



Thfi following is a short analysis of the above oropram. Each line 
has a number. The first line is numbered ten, the second twenty. 
When you say "RUN" the comouter starts to execute lines beqinning 
with the lowest numbered line. In this case that is Line the 
comouter orints "THE BOAT IS SINKING. MAN THE PUMPS! Bells" When it 
is done with Line ICi, it then executes the next highefr numbered line. 
In this case it is Line 20. Line 2^ has a new instruction, the GO TO 
instruction, it does the obvious thing and tells the comouter what line 
to go to. i.e., what line to execute next* The computer executes Line 
10 again, then looks for the next higher numbered line, and so forth. 
The computer will not stop until it is either turned off, or you stoo 
it by. pressing the BREAK button. 

If you are still unsure about how the GO TO program works, follow the 
arrows* 

>RUN 

^10 PRINT "THE BOAT IS SINKING. MAN THE PUMPS. Bells" 



^20 GO TO 1 0 

This program is in the form of a loop. The computer goes around the 
loop until you press the BREAK key. 

After you've stopped the program by pressing the BREAK key, you can 
start it again by typingt 

CONT (for continue) then press RETURN 

The proaram starts where it left off and continues to print the message 
over and over again until the BJ?EAK key is again pressed. 

The implications of this little program are imoortantt It is a little 
program, yet it produces a lot of outout! Tell a computer to write, 
"I will do my homework" a thousand times and it will do it uncomolain- 
ingly. In an automobile, a microcomputer can be proarammed to check 
the air pressure in the tires, the manifold pressure, fuel flow, 
battery voltage, the timing and so forth, a hundred times a minute, 
every minute the car is in oneration. Repetitive jobs, however many 
times they must be done, are usually no more difficult to orogram than 
Jobs that must be done only once or twice. 
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4.6 The - INPUT - Statement 



2 

Revert back to the problem of comoutinq the value of X for various 
values of X. The INPUT statement is a handy method for feeding 
values into variables. Follow along with the orogram to comoutei 

2 2 2 2 2 

X , then use it to comoute 23 , 37 , 53 , and 88 . 

>NEW 

>I0 INPUT X (This is the INPUT statement) 
* >2<?l PRINT X*X 
>30 GO TO 10 

The above is a three statement program, including a new type of 
statement called INPUT. RUN the program! 

^ >RUN 

? (A new kind of prompt.) 

NSC Tiny BASIC is now doing the INPUT statement. It tyoes a question 
mark, then waits. You must type a number and oress RETURN. 

>RUN 

? 23 (Tyoe 23 and oress RETURN.) 

529 

? (NSC Tiny BASIC tyoed another question mark to 

show it-'s ready for more values of X. Continue 
with 37, then 53, then 88.) 

>RUN 

? 23 
529 

? 37 
1369 

? 53 
2809 

? 88 
7744 

? NSC Tiny BASIC will keep promoting with ? until 

you let it know that you are finished. To do 
thist 

Press and hold CTRL and, while holding (H'RL down, press C. 
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? €TRL/C 
STOP at 10 



NSC Tiny BASIC has stopped running the orograin 
and waits for the next command. 



> 



Remember, NSC Tiny BASIC statements are done in line order ntrmber, 
unless a GO TO breaks that order. In the orecedinq orogram, the 
statements are done in the order shown below. Again, follow the 
arrows « 



V29i PRINT X*X 
30 ^ TO 10 

The following program computes the value of AX+B for INPUT values 
of A, X, and B. 

>NEW 

>I0 INPUT A 
>P0 INPUT B 
>30 INPUT X 
>40 PRINT A*X-»-B 

>50 PRINT This prints an «empty line^'. You could also 

>60 GO TO 10 use the exoression without the quotes. They 

>RUN only serve to make the output orettier. 

? 2 A 

? 3 B 

? 5 X 

?I3 A*X+B 

Line soace printed by Line 50. 

? 2 
? 3 
? 8 
19 

? CTRL ("')/C 
STOP AT 10 



4.7 Exercise 

How would you modify the program so that, after typing RUN, you 
could supply one set of values for A and B, followed by several 
values of X? 

See Aooendix A for the answers. 



>RUN 




Program loops around until you stoo it 
by typing CTRL and C together - CTRL/C 



> 



1-33 



4.8 Informative Printing 

A orogram to print squares of numbers could orint answers thusly* 
>RUN 

? 23 
529 

? 37 
1369 

? 53 
2809 

? 88 
7744 

? and so forth 

The following would be more preferable! 

>RUN 

COMPUTE X SQUARED 

WHAT IS X? 23 
X SQUARED = 529 

WHAT IS X? 37 
X SQUARED = 1369 

WHAT IS X? 53 
X SQUARED = 2809 

WHAT IS X? 88 
X SQUARED = 7744 

WHAT IS X? 

...and so on until someone types CTRL/C. 

This program identifies the desired input and the computed and printed 
output. 

The following are the first two statements! 

10 PRINT "COMPUTE X SQUARED" 
20 PRINT 

Line 10 causes NSC Tiny BASIC to print the message COMPUTE X SQUARED. 
Line 20 Prints a Line Feed. 



1-34 



The two statetn«ntst 

30 PRINT "WHAT IS X?-"? Note the semicolon. 

INPUT X 

Cause NSC Tiny BASIC to typet 
WHAT IS X? 

and wait for a value of X. The 'question mark is th^ oromot from the 
INPUT statement. Did you observe the semicolon at the end of the 
Pf^INT statement? It orevents a carriaqe return and line feed from 
occurrina. If you don-'t use a semicolon the followina would hanoent 

3(?J PRINT "WHAT IS X" No semicolon. 

40 INPUT X 

Without the semicolon, NSC Tiny BASIC tyoes* 

WHAT IS X 

? 

For this orogram, remember to use the semicolon at the right end of 
the PRINT statement. 



50 PRINT X SQUARED Semicolon. 

60 PRINT X*X 

Together these two statements cause NSC Tiny BASIC to print the 
message "X SQUARED =" followed by the value of X*X. For examole, if 
X = 23, NSC Tiny BASIC will tyoet 

X SQUARED = 529 

Remember to note the semicolon on the right end of Line 50. Had it 
been omitted the following is what would haopent 

50 PRINT "X SQUARED =" No semicolon. 

60 PRINT X*X 

If X = 23. NIBL will type 

X SQUARED = 
529 

One more statement t 
70 GO TO 20 
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The following is everythlnq put together In a complete orogramt 

10 PRINT ^COMPUTE X SQUARED** 

20 PRINT **** 

30 PRINT «WHAT IS X*l 

40 INPUT X 

50 PRINT *X SQUARED***! 
60 PRINT X*X 
70 GO TO 20 

Load the above program into your INS8073 and RUN it. Try it for 
X ' 23, 37, 53 and 88. 



4.9 Multiple Statement's Per Line 



The following instructions explain how to out two or wore statements 
on one line. 



Instead oft 



30 PRINT «WHAT IS X"l 
40 INPUT X 



You can out both statements on one linet 

30 PRINT *»WHAT IS X^ t INPUT X 
(first statement) ^ (second statement) 



t ' 



(The statements are separated by a colon) 

To put more than two statements on a single line, follow the same 
format as above and be certain to separate each statement with a 
colon (t). 

Instead oft 

20 PRINT 

30 PRINT ^•WHAT IS X-«»l 
40 INPUT X 

Put all three statements on one linei 

20 PRINT I PRINT -"WHAT IS X^'« i INPUT X 



1st 
statement 



2nd 
statement 



colon 



CO 



3rd 
Stat em ent 



on 
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The foilowinq Is an examole of four statements on one line. 

40 INPUT Xt PRINT "X SOUAREDa»M INPUT X i PRINT X*X i GO TO 20 
Instead oft 
40 INPUT X 

50 PRINT "X SOUARE[>«-»»f 
65 PRINT X*X 
70 GO TO 20 

2 

the following is a **comDact*' orooram to comoute X , featuring the use 
of multiole statements oer llnet 

10 PRINT "COMPUTE X SOUARFD" 

20 PRINT t PRINT "WHAT IS X"? t INPUT X 

50 PRINT "X SQUARED ="l t PRINT X*X t GO TO 20 

Try it. on your INS 807 3. 

Follow the arrows to see how the oroqram works. 
RUN 



c 



10 PRINT "COMPUTE X SQUARED" 

f 

20 PRINT "" » PRINT "WHAT IS X"l « INPUT X 

50 PRINT ^X SQUARED ="l » PRINT X*X t GO TO 20 



As oer standard, NSC Tiny BASIC does lines in line number order, 
first Line 10, then to Line 20, then Line 50. NSC Tiny RASIC does 
all statements on a line in left to right order before moving on to 
the next line. Since Line 50 ends with a GO TO 20 statement, NSC 
Tiny BASIC, indeed, goes to Line 20 and continues, after finishing 
Line 50. 

In order to emphasize that multiple statements oer line are seoarated 
by colons («), a soace on each side of the colon has been ackiedt this 
is optional and Line 20 could have been tyoedt 

20 PRINT ""iPRINT "WHAT IS X"M INPUT X 
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Some statements such as PRINT and INPUT can take multiDle arguments. 
This allows several statements to be added toqether into one. For 
examolet 

10PSINT XjtPftINT 4|tPRINT ^DOMINO"* I NPUT AiINPUT B 
can be shrunk to» 

10 PRINT X,Y, "DOMINO«tINPUT A,B 

4.10 Exercises 

I. Write two programs to comoute the value pf AX+B for input values 
of A, X and B, as illustrated by the following RUN of our orogram, 

>RUN 

PROGRAM TO COMPUTE A*X+B 

A=? 2 
B=? 3 

X=? 5 
A*X+B = 13 

X*? 8 
A*X+B = 19 



X=? 12 
A*X+B = 27 



X=? ...and so on .. .press ^R^ and(^to abort program. 

A. Program No. 1 . Do not use multiple statements oer line. 

B. Program No. 2. Use multiple statements per line. 



Answers are in Appendix A 
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5.1 Bits and Bytes 



CHAPTER 5 



We assume that you are uslnq an INS8073 with at least 256 memory 
locationsi this is the minimum confiauration to run NSC Tiny BASIC, 

o Each memory location holds, or stores, one byte of 
information. 

o One byte consists of eight binary dioits commonly called 
bits. BIT * BINARY DIGIT 

o One byte = 8 bits. 

o A binary digit (bit) is either C or I . 
You can think of a memory location as shown in the following diagram! 



0 


1 


0 


0 1 1 


0 


0 


1 




The number, 73, is stored 
in binary. 



I BYTE = 8 BITS = 1 MEMORY LOCATION 
Each bit must be 0 or I . Below are some numbers shown stored in bytes* 
NUMBER (DECIMAL) STORED AS A BYTE (BINARY) 

0 
1 

2 
4 
8 
16 
32 
64 
128 



0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


1 


0 


0 


0 


0 


0 


0 


1 


0 


0 


0 


0 


0 


0 


I 


0 


0 


0 


0 


0 


0 


1 


0 


0 


0 


0 


0 


0 


1 


0 


0 


0 


0 


0 


0 


\ 


0 


0 


0 


0 


0 


0 


I 




0 


0 


0 


0 


0 


1 


0 


0 


0 


0 


0 


0 


0 
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5,2 Exercises 



Fiqure out how 3, 6, 7 and 29 would be stored. What is the largest 
that can be stored in one byte? 

Answers are in Appendix A 

5.3 Memory Address 

Each memory location has a unique nimeric address. The NSC Tiny 
BASIC program in the INS8073 systern occupies locations with addresses 
0 to 2559. 

An expanded INS8073 system miqht have more memory locations. For ex- 
ample, your system may have 8192 locations, or 12288 locations... and 
so on, up to a maximum of 65535 locations, which includes "locations^? 
that are really ports for peripheral devices. 

Memory addresses might run from 0 to 4095 or 0 to 8191, or 0 to 12287, 
and so on. 



o Memory locations 0 to 2559 hold NSC Tiny BASIC in the 
on-chip ROM (Read Only Memory) of the INS8073. 

o Addresses 2560 through 65471 are yours to use. When you 

type in an NSC Tiny BASIC oroqram, you use some of these. Th 
longer your program, the more you use. If you wire up some 
interesting electronic gadgets to the system, you will most 
likely use some of these addresses. Not all of these memory 
locations will actually be there in a typical system. 



5.4 Hexadecimal Number System 

To understand the literature, you are going to have to learn hexa- 
decimal. The hexadecimal (base sixteen) number system is a handy 
shorthand for talking about bits and bytes and memory addresses. 

In hexadecimal, addresses range from #0000 to #FFFF. 

The number sign (#) is used to tell you that the number is hexadecimal 
instead of decimal. This is the notation used in NSC Tiny BASICl othe 
notations exist in other literature. 



The hexadecimal system has more digits than the decimal system. 



This is a decimal numbert 



28673 



This is a hexadecimal number* 



#7001 



Decimal digits* 



01 2 -3 456789 



Hexadecimal digitst 



0123456789ABCDEF 
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Just as in the decimal system, each hexadecimal dlait ha?; a oositional 
(or Dlace) value. The digit occuDyinq any oosition is multiplied by 
the value of that oarticular oosition. The<?e products are then added 
together to obtain the value of the number. 

Hexadecimal no«?ition values are expressed as powers of sixteen (rather 
than 10 as in the decimal system). Positions are numbered from right 
to left according to the increasing powers* 



POSITION 
3 


POSITION 
2 


^POSITION 
1 


POSITION 
0 


3 

16 


2 

16 


1 

16 


0 

16 



The decimal values of the powers of six1;een aret 



0 12 3 

16 - I 16 « 16 16 « 256 16 * 4096 

Check the decimal equivalents of the the following hexadecimal numbers. 

3 2 10 

#7001 = (7 x 16 ) + (0 X 16 ) -I- (0 X 16 ) + (I X 16 ) 

= (7 X 4096) + 0 +0+1 

= 28672 + 0 + 0 + 1 SB 23673 

#7002 « 28672 + 0 + 0 + 2 « 28674 

#7004 « 28672 +0+0 + 4 * 28676 

#7010 = 28672 + 0 + 16 + 0 * 28688 

#7020 = 28672 + 0 + 32 + 0 « 28704 

(Remember, # in front of a number means it is hexadecimal.) 

You will notice that in Section 3 a hexadecimal number is referred to 
by preceding the number with an "X'-** instead of the *»#" sign, for ex- 
ample* 

X^8000 

This is a more standard notation for hexadecimal numbers, but NSC Tiny 
BASIC does not like it. 
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If we ask the INSR073 in NSC Tiny BASIC to print a hexadecimal number, 
NSC Tiny BASIC orints the decimal equivalent. 



>PRINT #7001 
28673 

>PRINT #A 

>PRINT #B 
li 

>PRINT #C 
\2 

>PRINT #D 
J 3 

>PRINT #E 
14 

>PRINT #F 
15 

>PRINT #10 
16 

And so on , . . 



The following Is a table of hexadecimal dlqlts vs. decimal values. 



HEXADECIMAL 


DECIMAL 


DIGIT 


VALUE 


0 


0 


1 


J 


2 


2 


3 


3 


4 


4 


5 


5 


6 


6 


7 


7 


8 


8 


9 


9 


A 


10 


B 


}f 


C 


12 


D 


13 


E 


14 


F 


15 
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You may wish 
a tioni. 



to use the followinq small orooram for further exoeriment 



>NEW 

>\m RFMARK HEXADECIMAL TO DECIMAL 
>U0 PRIhTT 

>129) PRINT "HEXADECIMAL NUMBER" I f INPUT H 

>I30 PRINT "DECIMAL EQUIVALENT IS",H - This is a multiole PRINT 
>I40 GO TO statement, see section 

4.8. 

>RUN 



HEXADECIMAL NUMBER? #7001 
DECIMAL EQUIVALENT IS 2B673 

HEXADECIMAL NUMBER? ... And so on. If you tyoe a decimal number 

(without #), you will get 
the decimal equivalent of 
your decimal number. 

You may have noticed something new in Line 100. Any line that begins 
with the word "REMARK^ is ignored by NSC Tiny BASIC, even if it 
contains another statement preceded by a colon. These REMARKS are used 
to help document the orogramt and, REMARK statements will be found in 
great abundance in the programs that follow in this orimer. 

5.5 More About Hexadecimal 

The hexadecimal numbers #0 to #7FFF, inclusive, are equivalent to the 
decimal numbers, 0 to 3?767, inclusive. You can obtain the decimal 
equivalent of any hexadecimal number in the above range bv usino the 
program on this page. 

To find out about the hexadecimal numbers from #R000 to ^FFFF, use the 
program on this page. Enter that program and tyoe RUN. 



>RUN 

HEXADECIMAL NUMBER? #8000 
DECIMAL EQUIVALENT IS -32768 

HEXADECIMAL NUMBER? #8001 
DECIMAL EQUIVALENT IS -32767 

HEXADECIMAL NUMBER? #rFFF 
DECIMAL EQUIVALENT IS -1 

HEXADECIMAL NUMBER? #FFFE 
DECIMAL EQUIVALENT IS -2 

And so on . . . 
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Remember the number circle in Chaoter 3? It works in hexadecimal toot 



#0 

#FFFF #1 
# FFFE #2 
#FFFD #3 
#FFFC #4 
#FFFB #5 



#8005 
#800 

#8003 

#8002 



#800 1 



#7FFE 
#7FFF 



#7FFC 
#7FFD 



#80^- 

Compare the hexadecimal number circle with the decimal circle in Chan- 
ter 3. Below is a table showing some of the eauivalences between 
decimal and hexadecimal NSC Tinv BASIC numbersi 



POSITIVF NUMBFRS 



f^EGATIVF NUMBFRS 



Hexadecimal Decimal 



#1 
#2 
#3 
#4 



I 

2 
3 
4 



Hexadecimal Decimal 



#8000 
#8001 
#8002 
#8003 



-32768 
-32767 
-32766 
-32765 



#7FFD 
#7FFE 
#7FFF 



32765 
32766 
32767 



#FFFD 
#FFFF 
#FFFF 



-3 
-2 
-J 




#5F 




Checkt 4 X 16 + 9 = 73 



Check! 5 X 16 + 15 = 95 



#FF Checkt 15 x 16 ♦ 15 « 255 

#F « 15*^ #F = 15 
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You can convert any decimal number, 0 to 255, to hexadecimal as 
follows* 

1. Divide the decimal number by 16, obtaining the quotient Q 
and remainder R. 

2. For decimal numbers in the ranae 0 to 255, the auotient 0 
and the remainder R will each be numbers in the range 0 to 
15, inclusive. 

3. The hexadecimal number is #Q''R' where 0' and R' are the hexa- 
decimal digits (0 through F) corresoondlng to the values of 

0 and R. 

The followino is a orogram to comoute Q and R, this program features a 
new function, called MOD, for comouting R. 

>NEW 

>I00 REMARK CONVERT DECIMAL TO HEXADECIMAL, SORT OF 
>110 PRINT M^iPRINT "YOUR NUMBERS M INPUT N 
>120 R=MOD(N, 16) 
>130 0«N/J6 

>140 PRINT ^'HEXADECIMAL DIGIT VALUES^' ,0, R 
> 1 50 GO TO 110 

>RUN 

YOUR NUMBER? 73 

HEXADECIMAL DIGIT VALUES* 4 9 Therefore, 73 = #49 
YOUR NUMBER? 95 

HEXADECIMAL DIGIT VALUESt 5 15 Therefore, 95 = #5F 
YOUR NUMBER? 255 

HEXADECIAL DIGIT VALUES* 15 5 Therefore, 255 = # FF 

In Line 120, the function M0D(N,I6) comoutes the remainder on division 
of N by 16, 

The following illustrates the method used to convert decimal numbers 
in the range 0 to 32767 to four diait hexadecimal numbers. Check it 
over very carefully* 




The above is the conversion for 4660 to #1234 
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1792 
16 / 286 73 
16 




The above Is the conversion for 28673 to #7001 
You try to convert 6844 to hexadecimal. 

1*6/ 6844 16/ 16/ 6844 



(The check your conversion of 6844 to hexadecimal, look at the next 
program , ) 

The following orogram will work for numbers in the range 0 to 32 7 6 7, 
inclusive. 

>LIST 

100 REMARK CONVERT DECIMAL TO HEXADECIMAL, SORT OF 

110 PRINT ""tPRINT "YOUR NUMBERS I f INPUT N 

120 X=MOD(N, 16) 

130 N=N/ 16 

140 W«M0D(N,I6) 

150 N=N/16 

160 V=M00(N,16) 

170 U=N/16 

180 PRINT "HEXADECIMAL DIGIT VALUESt-"U,V,W,X 
190 GO TO 1 10 

>RUN 

YOUR NUMBER? 4660 

HEXADECIMAL DIGIT VALUESi 1^2^3^4^4660 = #1234 




YOUR NUMBER? 28683 

HEXADECIMAL DIGIT VALUESt 7 0 0 1^ — 28673 = #7001 
YOUR NUMBER? 6844 

HEXADECIMAL DIGIT VALUESt 1 10 11 12-4-6844 « #1ABC 

YOUR NUMBER? 255 

HEXADECIMAL DIGIT VALUESt 0 0 15 154-255 « #00FF « #FF 
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YOUR NUMBER? 32767 

HEXADECIMAL DIGIT VALUES« 7 15 15 154-32767 « #7FFF 
YOUR NUMBER? -I 

HEXADECIMAL DIGIT VALUES* 0 0 0 -14— Beware of negative numbers! 



\ 



YOUR NUMBER? --32767 
HEXADECIMAL DIGIT VALUES* -7 -15 -15 -15 

YOUR NUMBER? #7001 

HEXADECIMAL DIGIT VALUESf 7 0 0 1 - Hexadecimal is converted to 

hexadecimal, provided the 
number is in the range #0 to 
#7FFF. 

YOUR NUMBER #8000 

HEXADECIMAL DIGIT VALUES? -8000 Other hexadecimal numbers give 

funny results. A comolete ex- 
planation will not be attemot- 
ed in this orimer. 



YOUR NUMBER? 



(No GO TO statement at end of orogram) 



In case you haven-'t figured out how the program works, follow along as 

the program for N = 4660 is traced. The following trace shows the 

values of variables after the statement on the same line has been 
executed. 



STATEMENT 
110 INPUT N 
J 20 X^M0D(N,J6) 
130 N=N/16 
140 W=M0D(N,16) 
150 N=N/16 
160 V=M0D(N,16) 
170 U=N/16 



N 

4660 
4660 
291 
291 
18 
18 
18 



U 



180 Prints the values of U,V,W, and X 

190 REPEAT THE PROGRAM AD INFINITUM 
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5.6 Exercise 

Trace the proqram for N = 6844i 
STATEMENT 
110 INPUT N 
120 X « MOD (N,I6) 
130 N = N/16 
140 W = MOD (N,I6) 
150 N « N/16 
160 V * MOD (NJ6) 
170 U = N/16 

Answers are in Anpendlx A 



N U V 
6844 
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CHAPTER 6 

6.1 The IF Statement 

The useful and Dowerful IF statement oermi ts programs to be written 
in which the computer makes simole decisions. 

The following is an IF statement! 

IF P=14 THEN PRINT "AIR PRESSURE IS NORMAL** 

This statement tells the computer "IF the value of P is equal to four- 
teen, then print the message «AIR PRESSURE IS NORMAL.". Not stated, 
but Imolied, is that IF P is not equal to fourteen, the message is 
not printed. 

The following is an example of the IF statement used in a short 
orogramt 

100 REM AIR PRESSURE MONITOR 

110 ""tPRINT "WHAT IS AIR PRESSURE"! t INPUT P 

1?0 IF P = 14 THEN PRINT "AIR PRESSURE IS NORMAL" 
130 GO TO 110 

You may have noticed that an abbreviated form of the "Remark" state- 
ment was used In Line 100. NSC Tiny BASIC only needs the first three 
letters to recognize the word? "REM" can be used as an abbreviation 
for the word REMARK. 

Next, run the program and suoply several values for air pressure, 
P. 

>RUN 

WHAT IS AIR PRESSURE? 14 
AIR PRESSURE IS NORMAL 

WHAT IS AIR PRESSURE? 14 
AIR PRESSURE IS NORMAL 

WHAT IS AIR PRESSURE? 23" 

WHAT IS AIR PRESSURE? 20 hNo message is printed 
WHAT IS AIR PRESSURE? 0_ 

WHAT IS AIR PRESSURE? ^ C< (Control/C was pressed) 

STOP AT 110 
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It would be better to have NSC Tiny BASIC orint messages and ring 
bells when the air oressure is NOT normal, Reolace Line 120 with the 
following IF statement! 

120 IF P <> 14 THEN PRINT "«AIR PRESSURE IS NOT NORMAL bells-»» 

In NSC Tiny BASIC, <> means.. .not equal to... 

The following is the comolete orogramt 

\m REM AIR PRESSURE MONITOR AND ALARM 

110 PRINT "«iPRINT «WHAT IS AIR PRESSURE** 1 1 INPUT P 

120 IF P <> 14 THEN PRINT -"AIR PRESSURE IS NOT NORMAL bells" 

130 GO TO IJ0 



>RUN 

WHAT IS AIR PRESSURE? 14 

WHAT IS AIR PRESSURE? 14 

WHAT IS AIR PRESSURE? 14 

WHAT IS AIR PRESSURE? 50 (Trouble!) 
AIR PRESSURE IS NOT NORMAL Bells 

WHAT IS AIR PRESSURE? 12 

AIR PRESSURE IS NOT NORMAL Bells 

And so on. 

In a situation where air oressure was actually being monitored. Line 
110 would be reolaced with a a method for automatically acouiring the 
value of the air oressure Pi probably by means of an analog to digital 
converter wired into the INS8073^s memory. For now, however, you will 
simulate the acquisition of data by means of INPUT statements and 
concentrate on the structure of the orogram Itself. 

Requiring P to be exactly 14 is a tight controli loosen things uo a 
little and let normal oressure be anything from 13 to 15, Inclusive. 
You want a warning printed whenever P is less than 13 or greater than 
15. 

100 REM AIR PRESSURE MONITOR AND ALARM 

110 PRINT "MtPRINT «WHAT IS AIR PRESSURE-"! t INPUT P 

120 IF P < 13 THEN PRINT "AIR PRESSURE IS NOT NORMAL Bells" 

130 IF P > 15 THEN PRINT "AIR PRESSURE IS NOT NORMAL Bells" 

140 GO TO 1 10 

If P is less than J3, Line 120 will cause a warning/alarm to be 
nrintedl and, if P is greater than 15, Line 130 will cause the 
message to be printed. If P is 13, 14 or 15, no message will occur. 
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>RUN 

WHAT IS AIR PRESSURE? 14 
WHAT IS AIR PRESSURE? 13 
WHAT IS AIR PRESSURE? 15 

WHAT IS AIR PRESSURE? l2^(Pressure is less than 13) 
AIR PRESSURE IS NOT mRUAL Bells 

WHAT IS AIR PRESSURE? 1 64— (Pressure is more than \5) 
AIR PRESURE IS NOT NORMAL Bells 

And so on... 

6.2 Ex-ercise 

Modify the above program, with lust two small changes, so that when air 
pressure is not normal NSC Tiny BASIC will tell you whether it is too 
high or too low, A RUN might look like the following, change the last 
orogram to do this. Answers are in Aopendix A 

>RUN 

WHAT IS AIR PRESSURE? 14 

WHAT IS AIR PRESSURE? 13 

WHAT IS AIR PRESSURE? 15 

WHAT IS AIR PRESSURE? 16 
WARNING! AIR PRESSURE TOO HIGH 

WHAT IS AIR PRESSURE? 12 
WARNING! AIR PRESSURE TOO LOW 



And so on , , . 

Since you are monitoring air pressure between limits, change the 

Program to give yourself a little more flexibility in setting the 
1 imits* 

\m REM AIR PRESSURE MONITOR AND ALARM 

110 REM L^LOWER LIMIT, USURPER LIMIT FOR NORMAL PRESSURE 

\2Qi L=13 

130 U=15 

140 REM ACQUIRE ACTUAL AIR PRESSURE, P 

150 PRINT ""tPRINT "WHAT IS AIR PRESSURE^'! t INPUT P 

160 REM IF P IS OUTSIDE NORMAL LIMITS, PRINT MESSAGE 

170 IF P<L THEN PRINT "WARNING! AIR PRESSURE TOO LOW« 

180 IF P>U THEN PRINT "WARNING! AIR PRESSURE TOO HIGH*' 

190 REM GO GET ANOTHER VALUE OF P 

200 GO TO 150 
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Try the preceding proqrami then, change the lower limit (L) and uDoer 
limit (U) in Lines 120 and 130 and try the program again. 

Also try thist Combine Lines 190 and 200 as follows! 

190 GO TO 150«REM GO GET ANOTHER VALUE OF P 

Line 190 now contains two statements, a GO TO which tells NSC Tiny 
BASIC what to do, and a REM (remark) which tells you what is haooening. 

You may wish to change Lines 120 and 130 to INPUT statements. In that 
case, a RUN might look like the following* 

>RUN 

LOWER LIMIT FOR NORMAL AIR PRESSURE? 13 
UPPER LIMIT FOR NORMAL AIR PRESSURE? 15 

WHAT IS AIR PRESSURE? 14 

WHAT IS AIR PRESSURE? 13 

WHAT IS AIR PRESSURE? 16 
WARNING! AIR PRESSURE TOO HIGH 

WHAT IS AIR PRESSURE? 12 
WARNING! AIR PRESSURE TOO LOW 

And so on . . , 

In general, the IF statement has the form of THFNf 

IF condition - THEN statement 

For example, th*» following are two IF statements you-'ve already seent 

IF P = 14 THEN PRINT "AIR PRESSURE IS NORMAL'" 

\ [ 

Condition Statement 

IF P<L THEN PRINT "WARNING! AIR PRESSURE TOO LOW« 

— r~ 1 

Condition Statement 
The following is an IF statement that you will be using soon. 

IF F>20 THEN GO TO 510 

1 1 

Condition Statement 
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The condition is frequently a comoarlson between two quantities. Here 
is a handy table of comparisons that can be used in IF statements' 

NIBL Symbol Meaning Math Symbol 

« Is equal to « 

< Is less than < 

> Is greater than > 

<= Is less than or equal to s. 

>« Is greater than or equal to 2. 

<> Is not equa*! to, i.e., greater' 

or less than ^ 

The quantities being comnare^ can be numbers, variables or algebraic 
expressions. The comparison can be TRUE or FALSE. 

Below -are comparisons and their truth values, TRUE or FALSEt 

3 + 5 > 6 is TRUE, always. 

If A = 8 and 3 = 30, then 4*A <= B is FALSE 
If A = 8 and 8 = 32, then 4*A <« B is TRUE 
If A = 8 and B = 40, then 4*A <= B is TRUE 

If the comoarison is TRUE, then the next statement on the same line as 
the IF is executed. It can be any kind of statement* A PRINT, a GO 
TO, another IF, or even those kinds of statements yet to be introduced. 
If the comoarison is FALSE, then the statement following the comparison 
is ignored and the next highest numbered statement is executed. 

IF P<L THEN PRINT •"WARNING! AIR PRESSURE TOO LOm 



Do this if the condition P < L is TRUE. 
Don't do this if P < L is FALSE. 



That's all there is to IF statements, except that the word THEN may 
be omitted if you wish. For example, instead of writingt 

IF P=14 THEN PRINT "AIR PRESSURE IS NORMAL-»» 

you can omit the word THEN and writei 

IF P=14 PRINT ^AIR PRESSURE IS NORMAL" 

Sometimes the word THEN makes the program easier to read. Use it if 
it feels comfortable. 

Be careful to avoid making multiple statements separated by colons 
on a line with an IF statement. Remember that when an IF condition 
is found to be FALSE, the entire rest of the line is ignored. There- 
fore, for the following program, a zero will be printed. 
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10 A=0tB=99 

IF B> \m THFN PRINT «BIG B«tA=1 
30 PRINT A 

The followinq orogram has several REM-^s to help you read and under- 
stand it« 

100 REM DIALYSIS FLOW MONITOR PROGRAM 

110 REM GET FLOW RATE« F 

120 PRINT ""iPRINT "FLOW** $ t INPUT F 

130 REM CHECK IF FLOW RATE CRITICALLY HIGH 
140 IF F>?0 THEN GO TO 510 

150 REM CHECK IF FLOW RATE CRITICALLY LOW 
160 IF F<10 THEN GO TO 510 

170 REM CHECK IF FLOW RATE ABNORMALLY HIGH 
180 IF F>17 THEN GO TO 710 

190 REM CHECK IF FLOW RATE ABNORMALLY LOW 
200 IF F<13 THEN GO TO 710 

210 REM IF FLOW RATE IS NEITHER TOO HIGH NOR TOO LOW, IT IS OK 
220 PRINT "FLOW OK"tGO TO 120 

500 REM FLOW RATE CRITICALLY HIGH OR LOW, SOUND BELLS 
510 PRINT "DANGER! FLOW RATE CRITICAL BellstGO TO 120 

700 REM FLOW RATE IS ABNORMALLY HIGH OR LOW, PRINT MESSAGE 
710 PRINT "WARNING! FLOW RATE ABNORMAL" tGO TO 120 

Try this orogram, make sure it works for all possible conditions. Try 
the following flow rates as test cases. 

FLOW OKI 13, 14, 15, 16, 17 

ABNORMAL* 10, 11, 12, IR, 19, 20 

CRITICAL! 7, 8, 9, 21, 22, 23 

After you have convinced yourself that this orogram works, read the 
following analysis of it. 

Follow along and trace through the orogram for a few soecific values of 
F. First, supnose F = 25. The condition in Line 140 (F>20) is TRUE? 
therefore, NSC Tiny BASIC will no to 510. Line 510 directs NSC Tiny 
BASIC to print the message ^DANGER! FLOW RATE CRITICAL", ring the TFY 
bell several times, then GO TO 120 for a new value of F. This will 
continue to happen for as lonq as F remains greater than 20. 
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SuDpose F = 9. The condition in Line 140 (F>20) is FALSE, so NSC Tiny 
BASIC. Qoes on to Line 160. In Line 160, the condition (F<I0) is TRUF, 
so NSC Tiny BASIC will go to 5!0, print the danger messaoe, ring the 
bell, then GO TO for still another value of F. 

Suppose F = 18. The condition in Lines 140 and 160 are both FALSE. 
(Check them yourself.) Therefore, NSC Tiny BASIC arrives at Line 180. 
The condition in Line 180 (F>17) is TRUE, so NSC Tiny BASIC does GO TO 
710 and, as directed by Line 710 prints the message, "WARNINGt FLOW 
RATF ABNORMAL^', then goes back to Line 120 for another value of F. 

The above has traced three possible paths throuah the orogramt there 
are two more, try these for F = 12 and F = 15. As there are five 
possible paths in all, you may wish to choose your favorite colors of 
felt tip pens and actually draw the oaths. 

Flowchart 



START 




220 

FLOW OK 
GO TO 120 



140 

GO TO 510 



160 

GO TO 510 



200 

GO TO 710 



510 

DANGER! FLOW 
RATE CRITICAL 
(BELLS) 
GO TO 120 



710 

WARNINGl FLOW 
RATE ABNORMAL 
GO TO 120 
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in the flowchart, or logic diagram, of the Dialysis Flow Monitor Pro- 
ram, the diamond shaoed boxes correspond to the IF statements. 
The numbers at the top of each box corresoond to line numbers in the 
orooram. Compare the flowchart with the orogram. Trace through the 
flowchart for several values of F. Make sure you trace each of the 
five possible oaths through the orogram. For example, try It for F = 
25, 9, 18, 12 and 15. (Again, please note that it would be heloful to 
mark each path with a different color.) 



6.3 A More Compact Program 

In looking over the Dialysis Flow Monitor Program, we note the 
following! 

1. If F>20 or F<10, the program should have a dangft:r message plus 
alarm. 

2. If the above is not true, and if F>17 or F<13, then the orogram 
should have an '"abnormal" message, but not an alarm. 

3. If neither of the above are true and everything is OK, a "FLOW 
OK" message will suffice. 

NSC Tiny BASIC permits the use of logical operators AND, OR and NOT. 
Use is made of the OR operator in the following revision of the 
dialysis orogram. 



100 RFM DIALYSIS FLOW MONITOR PROGRAM 

]\(Pi REM GET FLOW RATE 

120 PRINT "^t PRINT "FL0W«MINPUT F 

130 REM CHECK IF FLOW RATE CRITICALLY HIGH OR LOW 
140 IF (F>20) OR (F<10) THEN GO TO 510 

170 REM CHECK IF FLOW RATE ABNORMALLY HIGH OR LOW 
180 IF (F>17) OR (F<13) THEN GO TO 710 

210 REM IF FLOW RATE IS NEITHER TOO HIGH NOR TOO LOW, IT IS OK 
220 PRINT "FLOW OK"tGO TO 120 

500 RFM FLOW RATE CRITICALLY HIGH OR LOW, SOUND BELLS 
510 PRINT "DANGFR! FLOW RATE CRITICAL Rells»GO TO 120 

700 REM FLOW RATE IS ABNORMALLY HIGH OR LOW, PRINT MESSAGE 
710 PRINT "WARNING! FLOW RATE ABNORMAL"iGO TO 120 
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Suppose F=25. Then the comoound condition <F>20) OR (F<I0) in Line 140. 
is TRUE. In this case NSC Tiny BASIC will GO TO 510. If F=9, the 
compound condition is also TRUE and NSC Tiny BASIC will GO TO 510. 

Suppose F=18. The compound condition (F>20) OR (F<I0) in Line 140 
is FALSE, so NSC Tiny BASIC continues on to Line 180. Remember, F is 
now equal to IR, so the condition (F>I7) OR (F<13) In Line 130 is TRUE. 
NSC Tiny BASIC does a GO TO 710. 



★ * *The parentheses enclosinq F>20, F<10 and so on, 
are necessary I without tf^tm, the oroqram will 
not work, because logical operators, as arithmetic 
operators, are evaluate^lr from the left* side of the 
expression to the rioht. Parentheses are used to give 
precedence.* * * 



The following is a flowchart of the condensed dialysis program. 



START 
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Have you noticed that both Droqrarns tested for the most danoer- 
ous condition first? Then tested for the second most dangerous, 
simoly as a matter of life-saving priorities. In this case, a few 
milliseconds orobably won't tiake much difference! however, in many 
real time aool ications , a few milliseconds do make a difference. 

To illustrate to you that programs usually can be improved upon, the 
following is a suoer-condensed Dialysis Flow Monitor Program* 



120 PRINT "WtPRINT *»FLOW«M INPUT F 

140 IF (F>20) OR (F<I0) PRINT «DANGFR! FLOW RATF CRITICAL"* 
GO TO 120 

160 IF (F>I7) OR (F<I3) PRINT "WARNINGI FLOW RATE ABNORMAL^! 

GO TO 120 
220 PRINT "FLOW OK«tGO 120 

The AND, OR and NOT operators need not be limited to use in IF state- 
ments. They are logical operators and ooerate Bit-by-Bit on any con- 
stant or variable. This will be illustrated later on in this manual 
with an example on some I/O bits. 



The following program implements 
beneath itt 



the function indicated in the graph 



100 
110 
I 20 
130 
140 
150 



REM HASTILY CONSTRUCTED PROGRAM TO ILLUSTRATE USE OF "AND" 
PRINT ••••tPRINT "X="| t INPUT X 

IF (0<=X) AND (X<=100) PRINT "Y=",XtGO TO 110 
IF (I00<X) AND (X<=200) PRINT 100tGO TO 110 

IF (200<X) AND (X<=400) PRINT "Y=",150iGO TO 1J0 
PRINT «Y IS NOT DEFINED FOR X=",X 



NOTE* The parentheses around 0<=X, X<=100, and so on in the 
IF statement are necessary. Without them, the program 
will not work. This is because of the multiplicity in the 
conditions being checked. 



Y = f(y) 
150 



100 



♦ X 



100' 



200' 



400 



X for 0 < X < 100 
y = fix) = 100 for 100 < X < 200 
150 for 200 < X < 400 
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The following is a RUN of the orecedina Droqram, All critical ooints 
ha ve b een chec k ed . 



RUN 
X=? -I 

Y IS NOT DEFINED FOR X«-J 

X«? 0 
Y« 0 

X«? 37 
Y* 37 

X»? 99 
Y« 99 

X«? \m 
Y« 100 

X=? 101 
Y« 101 

X«? 199 
Y= 100 

X»? 200 
Y= 100 

X=? 201 
Y= 150 

X=? 299 
Y= 150 

X=? 300 
Y« 150 

X=? 301 
Y- 150 

X=? 399 
Y- 150 

X»? 400 
y- 150 

X»? 401 

Y IS NOT DEFINED FOR X * 401 
And so on... 
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6,4 Random Numbers and Comouter Games 

Another useful feature in NSC Tiny BASIC is a random generator. 
Sometimes it is useful to generate random numbers between specific 
limits. A trivial use is to imitate a pair of dice. The statement* 

D = RNDd ,6) 

will make D some number between I and 6 inclusive, with equal 
orobability for each of the possibilities. The followl^ng program 
simulates a pair of dicet 

10 PRINT RNDd, 6), RNDd, 6) 

20 GO TO J0 

RUN the program for a whilei 

>RUN 
4 I 

2 3 

3 5 
i I 
3 2 

3 I 

4 2 

5 5 
3 5 
3 4 
t 4 
3 3 
I 6 
3 3 
3 2 

STOP AT J0 
> 

In general, the expression^ 
RND(A,B) 

is a random integer between A and B, inclusive, A and B may be 
algebraic expressions, simole variables or constants. RND may be 
used wherever a variable may be used. 

Random numbers are widely used to test nrograms, and to do Monte Carlo 
method solutions to problems. Many games use a random number genera- 
tor. 
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10 REM GUESS THE NUMBER GAME 

20 X=RND (l,l00)tREM X IS THE SECRET NUMBER FROM I TO 1 00 

30 PRINT«»"tPRINT "WHAT IS YOUR GUESS^l 

40 INPUT GiREM G WILL BE THE GUESS 

50 IF G<X THEN PRINT "YOUR GUESS IS TOO SMALL* 

60 IF G>X THEN PRINT "YOUR GUESS IS TOO BIG« 

70 IG G»X THEN GO TO 90 

80 GO TO 301 REM NOT A CORRECT GUESS, GET NEXT GUESS 
90 PRINT «YOU WIN. LET^S PLAY AGAIN. •» 
100 GO TO ?0tREM GET A NEW SECRET NUMBER 

>RUN 

WHAT IS YOUR GUESS? 50 
YOUR GUESS IS TOO BIG 

WHAT IS YOUR GUESS? 25 
YOUR GUESS IS TOO BIG 

WHAT IS YOUR GUESS? 12 
YOUR GUESS IS TOO SMALL 

WHAT IS YOUR GUESS? 18 
YOUR GUESS IS TOO SMALL 

WHAT IS YOUR GUESS? 24 
YOU WIN. LET^S PLAY AGAIN. 

And so on... 



6,5 Exercise 

Rewrite Line 70 to combine the functions of Lines 70 and 80 making the 
nroqram one statement shorter. 

Answers are in Aooendix A 
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7.! Program Loops 



CHAPTER 7 



This section of the orimer deals with Proarani Loods. The following 
oroqram causes NSC Tiny BASIC to orint out the first ten positive 
integers and the souares of those integers. While not exactly 
intriguing in its mathematical subtlety, it helps point out a few 
useful technigues in orogramming. 

The following is an example of a, cumbersome way to achieve the results 
described above* 

>PRINT 1 
1 

>PRINT 1*1 
I 

>PRINT 2 
2 

xPRINT 2*2 
4 

>PRINT 3 
3 

>P»INT 3*3 
9 

And so on until ... 

>PRINT 10 
10 

>PRINT 10*10 
100 

> 

The foregoing would get the results, interspersed with PRINT state- 
ments! or, a program could be written as followsi 

10 REM PRINT THE FIRST TEN NUMBERS AND THEIR SOUARES 

20 PRINT 1 

30 PRINT 1*1 

40 PRINT 2 

50 PRINT 2*2 

60 PRINT 3 

70 PRINT 3*3 
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And so on until • • . 

180 PRINT 9 
190 PRINT 9*9 
200 PRINT 10 
210 PRINT 10*10 

RUN the Droqrami the following is what your RUN should look like* 



>RUN 
I 
I 

2 
4 

3 
9 

And so on until 
9 
81 
10 
100 

> 

Not a very readable chart, is it? Results that are hard to read or 
interpret decrease the value of the output. The answer 'nust be 
communicated to those who need the results. By using a comTia to keen 
the number and its square on the same line, and by using a PRINT 
statement you can write a much innoroved orogram. 

Note, in the following, the use of a comTia in PRINT statements to 
separate the number and the number sauared« 

10 REM TARLF OF NUMBERS AND THRIR SQUARES 

20 PRINT »» N N SQUARED 

30 PRINT I ,1*1 

40 PRINT 2,2*2 

50 PRINT 3,3*3 

60 PRINT 4,4*4 

70 PRINT 5,5*5 

80 PRINT 6,6*6 

90 PRINT 7,7*7 

100 PRINT 8,8*8 

110 PRINT 9,9*9 

120 PRINT 10, 10*1CT 

If you store the above program in the INS8073's memory and RUN it, 
the results would bet 
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>RUN 

N N SQUARED 

1 I 

2 4 

3 9 

4 16 

5 25 

6 36 

7 49 

8 64 

9 81 

10 100 

> 

The above program is much easlar to read than the first two presented 
in th4s chapter,. -Each number is printed side by side j^lth its square 
In the order they aooear in^ the PRINT statement. "For examolet 

The statement, PRINT 7,7*7 

Causes NSC Tiny BASIC to print, 7 49 

You now have enough tools to write a very short program to print 
numbers and their squares. The idea is to write short oroarams that do 
a lot of work. Read the following orogram, and then try it on your 
computer. Type in all of the RFMarks as they will help to explain what 
is haopening. Remember, RFMarks are for people? the computer simoly 
ignores them. 

10 REM A PROGRAM TO PRINT SUCCESSIVE INTEGERS AND THEIR SQUARES 
15 REM PRINT A HEADING 
17 PRINT « I I SQUARED" 

20 REM USE A VARIABLE, I, TO HOLD THE VALUE OF THE NUMBER 
30 REM TO BF SQUARED. START THE VALUE AT ONE 
40 I«l 

50 REM NOW THAT I HAS A VALUE, PRINT IT AND ITS SQUARE 
60 PRINT I, 1*1 

70 REM ADD ONE TO THE VALUE OF I , TO CREATE THE NEXT LARGER 
80 REM INTEGER, SO THAT IT AND ITS SQUARE CAN BE PRINTED 
90 REM UP IN LINE 60 
100 1=1 + 1 

110 REM NOW THAT THE VALUE OF I IS ONE LARGER, GO TO LINE 60 
120 GO TO 60 
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After yolj understand how it works, type in the program (or at least 
this abbreviated form) without the RHMarks. 

Try the following short form of the program on your INS8073t 

17 PRINT " I I SQUARED-** 
40 1 = 1 

60 PRINT 1,1*1 
100 I = I-M 
120 GO TO 60 

Do you see what is going to happen? Did you remember to clear out any 
old program with NFW? 



Do you have the program tJU^ured o 
>RUW 



'f not, follow the arrowst 



17 PRINT " I I SQUARRD-w 



I 



40 1 = 1 



60 Pt^INT 1,1*1 

I 

100 I=I-i-i 

I 

120 GO TO 60 




Lines 17 and 40 are done once. 



Lines 60, 100 and 120 are "in the 
*looo^*». They are repeated again 
and again ••.(until you press the 
BREAK key). 



7.2 Exercises 

I. If Line 17 is changed to read 
this change the results? 



17 PRINT « N N SQUARED" how would 



2. When you RUN the program, does NSC Tiny BASIC automatically stop 
after printing the first ten positive integers and their squares? 

3. What is the largest value of I for which the program will give the 
correct answers? 



Answers are In Aopendix A 



7.3 IF Loops 

the program does not satisfy the initial requirements, that is, to 
print the squares of the first ten positive integers. Agreed, it does 
print the ten positive integers and their squares! but then it lust 
keeps on going. You want it to stop automatically after printing 10 
and J0 squared. The IF statement will help you to achieve your goal. 
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Instead of 



120 C50 TO 60 



Use 120 IF I < 1 1 GO TO 60 



17 PRINT M I I SQUARED* 
40 1 = 1 

60 PRINT 1,1*1 
100 1=1+1 

120 IF I<n GO TO 60 

The IF statement (Line 120) can be readf •••If I is less than eleven 
then GO TO Line 60." Not stated, but Implied, is that if I is not less 
than 11, in pa rticulaj^ Jf it is 11 or more, then DO NOT GO to Line 60, 
but just go on to th^^next line. There is no n^ext line, so5r.4he program 
will stop. 

To make the program more complete, add the STOP statement. This 
statement, when executed, stops the program. Of course, as you have 
seen, the program stops if there is nothing else to do. Occasionally 
it is necessary to deliberately stop a program. It is also useful to 
nut a 5J0P statement at the end of a program Just to mark the end of 
that program. Add a STOP statement to the end of the orogram to 
compute sguares. 

17 PRINT " I I SQUARED* 

40 PRINT 1=1 

60 PRINT 1,1*1 

100 1=1+1 

120 IF I< 11 GO TO 60 

999 STOP 4 • ^The STOP statement. 

Any line number from 1 2J to 32767 could have been used for the STOP 
statement, 999 was arbitrarily chosen. It is often used to save the 
programmer's having to retype the entire *STOP»* statement if he wants 
to add to the bottom of the existing orooram. The following is a RUN 
of the above program. 

>RUN 

I I SQUARED 

1 1 

2 4 

3 9 NSC Tiny BASIC computed and printed I and I sguared 

4 16 for 1=1, 2, 3... 10 and then stopped automatically. 

5 25 

6 36 

7 49 

8 64 

9 81 
10 100 
STOP At 999 
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7.4 Exercises 

1. What will haooen if you change Line 120 to 120 IF I <« 10 GO TO 60 
and RUN the oroaram aaain? (Try it on your system.) 

2. What will haooen if you change Line 1 20 to 120 I F I < 1 7 GO TO 60 
and RUN the orogran again? 

3. What will haooen if you mistyoe Line 1 20 as 120 IF I < II GO TO 
40 and ran the orograrn again? 

4. What would be the results of RUNning the following orogram? 

10 1=1 

20 PRINT I»I*lfI=l4.1 f IF I<ll GO TO 20 
99 STOP 

For answers, see Appendix A 



7.5 FOR NEXT Loops 

When a program contains a statement that is executed more than once, 
then that program contains a LOOP. Nearly all the programs in this 
book contains loops. In fact, it is the loop that makes programming 
so powerful. If each statement could only be used once, then pro- 
gramming would be exceedingly tedious. As has been seen, programmers 
tend to write statements that can be used reoeatedly rather than only 
once. 

The very simple loopf 

10 PRINT 4 
20 GO TO 10 

will run and print 4's indefinitely. Most 1 oops have some facility for 
ending gracefully. What does the following program do? 

10 1=0 
20 1=1+1 
30 PRINT II 

40 IF 1 < 10 THEN GO. TO 20 

The following program does the same thing* 

10 1 = 1 

20 PRINT 1 1 

30 I = H-1 

40 I F I < 1 1 THEN GO TO 20 
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LooDS are so common that NSC Tiny BASIC provides a shorthand for 
writing them. The next oroqram does exactly the same thinq as the 
orevious two« 

10 FOR 1*1 TO J0 STEP I — I 

20 PRINT It This is a FOR NEXT looo. 

30 NEXT I — ' 



RUN the FOR NEXT loop* 



>RUN 

1P345 6 789 10 The FOR NEXT looo caused NSC Tiny 
> BASIC to print values of I for* 

I equals one (I ) to 
I, equals ten (10) 
in steps, or increments, of one. 

The nuTtbers go across the paqe instead of down because the PRINT 
statement ends with a semicx)lon (»). Try the oroqram with a P^^INT 
statement that doesn-'t end with a semicolon and you will qet the 
foilowinqt 

>RUN 
I 

2 
3 
4 
5 
6 
7 
8 
9 
10 

> 



The FOR statement sets up the loop. It soecifies what tne variable 
(often called the control variable for the loop) is to have for its 
initial value, then the final value and finally how much it is to be 
incremented each time throuqh the looo. 



The NEXT statement is the bottom of the loop, and says to find the next 
value of the control variable and continue execution at the statement 

immediately AFTER the correspondinq FOR statement, if the control 
variable has not yet passed the final value. 

To print the odd number?; from I to 10 (obviously 10 itself will not be 
one of them) the followinq looo could be used. 

FOR 1=1 TO 10 STEP 2 
20 PRINT I« ^ — Semi colon cause*; numbers to be printed 

30 NEXT I ^^^^.^^-^"^^ across the line. 

13 5 7 94r'''^— NSC Tiny BASIC is STEPoinq by 2, 

> 
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The step ^ize can be neqativet 

10 FOR 1=56 TO 4? STEP -3 
20 PRINT I? 
30 NEXT I 

Before running this oroaram, figure what its outout should be. The 
rule ist the FOR NEXT loop always starts exactly at the first value, 
and will not qo beyond the second. Each time through the Iood the STEP 
is added to the index. In these simple oroqrams the variable I has 
been the index, (Of course, if the 'STEP is negative, adding it to the 
index makes the index smaller,) 

The last program prints* 

56 53 50 47 44 

You don^t always have to use I. You can use any variable in a FOR 
statement as long as you use the same variable in the corresponding 
NEXT statement. 

10 FOR K=l TO 3 STEP I 
20 PRINT «HIP HIP HOORAY" 
30 NEXT K 

>RUN 

HIP HIP HOORAY 

HIP HIP HOORAY 

HIP HIP HOORAY 

> 

If the STEP size is one, the STEP clause can be omitted, 

10 FOR A=0 TO 7 
20 PRINT A? 
30 NEXT A 

>RUN 

0 12 3 4 5 6 7 

> 

The FOR NEXT loop makes it easy to run off tables, such as the table 
of I and I SQUARED. 

10 PRINT " I I SQUARECH' 

20 FOR 1=1 TO 5 Since STEP size is U it-'s omitted, 

30 PRINT I, 1*1 
40 NEXT I 
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>RUN 
I 
1 

2 
3 
4 
5 



I SQUARED 
1 

4 
9 
16 

25 



To get a table for 1-1, 2, 3,..., 10, 

change Line 20 tot 20 FOR 1 = 1 TO 10 

To get a table running from 100 to 120 
change Line 20 to4 20 FOR 1=100 TO 120 



Additionally, the starting and endina values can be ^variables or 
expressions. Here are two examolest 



10 A=1 
20 B=5 

30 FOR X=A TO B 
40 PRINT XI 
50 NEXT X 



10 L«2 

20 U«3 

30 FOR S=L*L TO U*U 
40 PRINT S|. 
50 NEXT S 



>RUN 
12 3 4 5 

> 



>RUN 
4 5 6 7 8 9 

> 



The STEP can also be a variable or an expression* 

10 A«1 
20 B=13 
30 C«2 

40 FOR X«A TO B STEP C 
50 PRINT XI 
60 NEXT X 

>RUN 
1 3 5 7 9 U ^3 

> 



Although the applications may not be readily aooarant, FOR NEXT looos 
may be "nested^' up to four levels. This means that you can have four 
layers of loops within loops. An example of this is shown below. The 
loops interact to orint the numbers 0 to 99 in a square orid. 



10 REM SQUARE MATRIX GRID. NUMBERS 1 TO 

20 REM ACROSS THF PAGE, THEN A CARRIAGE 

30 REM THEN NUMBERS 10 TO 19 ETC. 

40 FOR 1=0 TO 90 STEP 10fREM TENS LOOP 

50 FOR J=0 TO 9tREM UNITS LOOP 

60 PRINT I + JftREM PRINT ACROSS PAGE 

70 NEXT JiREM END OF "INNER^' LOOP 

80 PRINTtRFM CARRIAGE RETURN 

90 NEXT IiREM END OF OUTER LOOP 

999 STOP 



9 ARE PRINTED 
RETURN, 
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LooDS cannot cro^s'^aich other f 61' obvious reasons! therefore, if yow 
write* 



10 FOR 1=1 TO 10 
20 FOR J=l TO 10 
30 NEXT I 
40 NEXT J 



you will get a FOR NEXT error message (ERROR I0) upon execution of 
Line 30. 



7.6 Exercises 



For each orogram, first figure out what you think NSC Tiny BASIC will 
do, then RUN the orogram and verify your thinking. 



1 . 10 S=0 

20 FOR K=l TO 5 
30 S=S+K 
40 PRINT K,S 
50 NEXT K 



20 FOR K=l TO 5 
30 P=P*K 
40 PRINT K,P 
50 NEXT K 



3. 10 S-0 

20 FOR K=l TO 5 
.30 S=S+K 
40 NEXT K 
50 PRINT S 



4. 10 D=l 

20 FOR K=l TO 5 
30 P=P*K 
40 NEXT K 
50 PRINT P 



Each of the following orograms reguires an INPUT value for the 
variable, N. For the values outguess NSC Tiny BASIC then verify 
your results. 



5. 10 INPUT N 
20 S=0 

30 FOR K=l TO N 
40 S=S+K 
50 NEXT K 
60 PRINT N,S 



Try it for N=7 



10 INPUT N 
20 P=I 

30 FOR K=! TO N 

40 p=p*k: 

50 NEXT K 
60 PRINT N,P 



Try it for N=7 and N=9 
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7. Write a short nrogram to comoute and print the value oft 

2 2 2 2 
I 2 +3 ♦ + N 

for an INPUT value of N. 

>RUN 

N=? 5 

SUMSQUARED « 55 

> 

Answers are In Appendix A 

7.7 The DO Statement 

This* is a slmole statement that instructs H^Cf Tiny BASIC to DO a 
function UNTIL another condition is met. It has only one formt 

>340 DO 

Nothino ever comes after the word "DO* I somewhere later on in the 
program there is a statement UNTIL, for examolef 

>5C^(^ UNTIL (some arithmetic instruction aoes here) 

The line numbers are only examoles. The UNTIL statement acts lust 
like a GO TO which causes execution to proceed from the DO state- 
ment - whenever the value of the arithmetic expression equals zero. 
The following programi 

>\(?i DO 

>20 PRINT "HHLLO" 

>25 N«l 

>30 UNTIL N«0 

orints the word HELLO over and over until you stop the program. 

If instead, you had saldt 

>I0 N-5 
>20 DO 

>30 PRINT *THIS ONE STOPS SOON« 

>40i N=N-I 

>50 UNTIL N=0 

the message is orinted out five times. It is interesting to try this 
program with Line 30 changed to PRINT N. To understand how it works 
you must remember that an exoression such as N=0 has a numerical value. 
It is 0 as long as it is false. Thus, when N is not zero it is false 
to say that N=0. So the expression N=0 has the numerical value 0. 
The UNTIL acts like a GO TO back to Line 20, but when N is indeed zero 
then the expression N«0 is true. When an exoression is true its value 
is not zero, but -I. So the UNTIL does not act like a GO TO and the 
orogram ends. 
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NSC Tin^y BASIC uses the notation! 
X=6 

in two different ways. If it is a statement, where the X is the first 
item on the line it means "let the value of X be 6" but if the notation 
X=6 is us^ as part of an exoression - that is, not as the first item 
on the line - then it means "see if X is equal to six'* and if X is 
equal to six then the whole expression (X-6) takes on the value -I. 
This is similar to the test in an IF statement. 

The converse of this is also usable, that is, a DO., .UNTIL looo can 
terminate in any of the following with the same effectt 

UNTIL K«N 
UNTIL K-N«0 ' 
UNTIL 0=K-N 

• UNTIL K-N (which automatically has a value of zero allowing 
the looD to be terminated) 

For reasons of clarity, only the first and third examoles should be 
used. In the following* 

>I0 G=3 
>20 G=G=3 
>30 PRINT G 

(would be a very confusing thing to write and not at all recommended) 
the value -1 would be orinted, as Line 29^ would make the value of G 
equal to (G-3) which is true, and thus has the value -1. 

For the most part, the ambiguity mentioned can be safely ignored, 
and the UNTIL statement taken at *face value-" where you know that the 
loop will be done over and over again until the indicated condition is 
satisfied. The pair of statements! 

DO 



UNTIL K > (N/2) 

will execute whatever is between them until it happens that K is great- 
er than half of N. (Remember that NSC Tiny BASIC only does integer 
arithmetic so that N/2 means the integer part only, any remainder or 
fractional part is ignored.) DO UNTIL loops, like FOR NEXT loops, can 
be nested, but where FOR NEXT Ipops can go four deep, (four layers of 
of loops) DO UNTIL is allowed eight levels of nesting. 

7.8 Powers Of Two 

The following are three programs to compute and orint the powers of 2 
from 1 to 64, inclusive. 
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Proararrv number one uses an IF loon. 

100 RFMARK POWERS OF TWO, PROGRAM ONE 

1 20 PRINT Pt 
!30 P«2*P 

140 IF P<-64 GO TO 1 ?0 
999 STOP 

PrograTi number two uses a FOR NEXT loco. 

\m RFMARK POWERS OF TWO, PROGRAM TWO 
110 P=l 

1?0 FOR K=0 TO 6 
130 PRINT Pt 
140 P«2*P 
150 NEXT K 
999 STOP 

Program number three uses a DO UNTIL loop. 

100 RFMARK POWERS OF TWO, PROGRAM THREE 
110 P=l 
120 DO 

130 PRINT Pi 
140 P=2*P 

]5(^ UNTIL P>64 (Mso try UNTIL P=12B here.) 

999 STOP 

These three orograms produce exactly the same results. If you enter 
any of the above and tyne RUN, here is what hanoensi 

>RUN 

1 2 4 8 16 32 64 

> 

Try to modify each Program to aet powers of 2 from I to 12B. Then do 
it backwards, aet powers of two from 64 to 1. 

I F Loop 

100 RFMARK POWERS OF TWO, PROGRAM FOUR 
110 P=64 
12^^ PRINT Pt 
130 P=P/2 

140 IF P<1 GO TO 120 
999 STOP 

FOR NEXT Loop 

100 REMARK POWERS OF TWO, PROGRAM FIVE 
110 p=64 

120 FOR K=6 TO 0 STEP -1 (or FOR K=0 TO 6) 

130 PRINT Pt 
140 P=P/2 

150 NEXT K 
999 STOP 
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DO UNTIL LooD 

100 REMARK PONERS OF TWO, PROGRAM SIX 
I 10 P=64 
120 DO 

130 PRINT Pi 
140 P=P/2 

150 UNTIL P<l (Also try UNTIL P=0 here) 

999 STOP 

The three programs all produce the' same results. 
>RUN 

64 32 16 8 4 2 I 



Modify each orogram so that NSC Tiny BASIC tyoes powers of 2 frofn 128 
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8.1 Subroutines 



CHAPTER 8 



As you learn to nrogram, you will find that your proarams will in- 
crease in size until they become unmanaQeable. When that hanoens, 
it^s time to break them up into functional blockc;. Often, you will 
find that some of those functional blocks are used in several olaces 
in your orogram. Rather than repeat them each time, a "subroutine" 
can be used. A subroutine is Just a section of NSC Tiny BASIC 
statements perform ino some ooerat^on required at more than one place in 
tne orogram. The GOSUR statement is used to transfer control to the 
subroutine and the RFTURN statement is used to return control to the 
.place where the subroutine was called. 

fAs with FO^^ind NEXT, and the DO and UNTIL statements, GOSUB^hd 
RPTURN jmm-^ pair that are always together. The statemenij- 

I ?5 GOSUR 910 
acts exactly like the statement t 
\?5 GO TO 910 

exceot that the computer remembers the line number (in this case I ?S) 
of the statement that made it no to Line 910, so that after the sub- 
routine is finished the comouter can resume where it left off. For 
example, when the orogram executes a RETURN statement* 

320 RETURN 

the comouter knows to Jump back to the statement immediately after 
Line 125 - wherever it is. 

The followino is a short orooram to demonstrate the use of the GOSUB 
and RFTURN statements. Try it on your INS8073. 



100 N= I 

105 GOSUB 200 

110 Ns? 

115 GOSUR 200 

120 N=3 

125 GOSUB 200 

130 N=4 

135 GOSUP 200 

140 N=2 

145 GOSUR 200 

150 N=3 

155 GOSUR 200 

160 FND 



Main Program 



200 PRINT «THIS IS NUMBER ".N'T Subroutine 

210 RETURN 
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WH the above program, the results should look like this* 



>RaN 



THIS 
THIS 
THIS 
THIS 
THIS 
THIS 



IS 
IS 
IS 
IS 
IS 
IS 



NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 



I 

2 
3 
4 
5 
6 



The statement* 

tells mc Tiny BASIC* 

The statement* 

tells NSC Tiny BASIC* 



110 GOSUB 2m 

GO TO line 2^, but remcnber that yoy^ 
came from Line I If". .When you come.,.^' 
RETURN statement, return to the line 
next after Line 110 (which is Line 115). 

GOSUB 2m 

GO TO Line 200, but remember that you 
came from Line 120. When you come to a 
RETURN statement, return to the line 
next after Line 120. 

The rest of the GOSUBs operate in a similar fashion. GOSUB, when 
used orooerly, can eliminate the tedium of having to retype a routine 
wherever it may be used in a large orogram. Subroutines may call other 
subroutines, this is called nesting and may look like this* 

10 1=12 

20 GOSUB 200 

30 1=5 

40 GOSUB 200 

50 A=2 

60 B=3 

70 GOSUB 300 

80 STOP 

90 REM END OF MAIN PROGRAM 

200 REM SUBROUTINE TO COMPUTE NUMBER OF STARS TO PRINT 
210 B=I 
P20 A=I-2 
230 GOSUB 300 

240 RETURN* REM RETURN TO MAIN PROGRAM 

300 REM SUBROUTINE PRINTS B-A STARS 
310 FOR J=l TO B-A 
320 PRINT "*"t 
330 NEXT J 

340 PRINT*REM PRINT A CARRIAGE RETURN 
350 RETURN 
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Notice that sometimes the subroutine at location 300 is called by the 
subroutine at location 200, and it is called once by the main oroaram. 
Whomever calls that subroutine is where the nroqram returns on a 
RETURN statement. 

Subroutines may be nested uo to eiqht deep. 



LINK Instruction 



The LINK instruction allows you to transfer control from an NSC Tiny 
RASIC nroqram to an INS8073 assembly (machine) lanquafge subroutine. 



Suppose Bill Counter has qiven you an assembly lanquaqe subroutine that 
is perfect for countinq widqets. You could convert Bill's nroqram to 
NSC Tiny BASIC; but since vmL<1on''t understand Bill's system for 
countinq the widqets, and since Bill-'s system works, Bnd since assembly 
lanqtraqe runs faster than NSC Tiny BASIC, etc., all you have to do is 
use the LINK instruction to transfer control from your NSC Tiny BASIC 
nroqram to an a«?sembly lanquaqp subrofjtine. 

A statement such asi 

>10 LINK #180^ 



causes transfer control to the routine that starts at address location 
hexadecimal 1800. There is a RET instruction at the end of the routine 
that returns you to your NSC Tiny BASIC oroqram. RBT is an assembly 
lanquaqe instruction that acts like the NSC Tiny BASIC RFTURN 
instruction? it returns you to the line number followinq Line 10 (the 
LINK statement). 



Fxamnle* 



>10 LINK #1800 ^ 

>20 IF A=0 THFN PR «SENSE A IS LOW«^ 
>30 IF A=l THFN PR ^'SENSE A IS HIGH* + 
>99 STOP + 
>RUN ^■ 
SENSE A IS HIGH 



■NSC Tiny BASIC trans- 
fers to address #1800 
to read sensor. 



•Proqram transfers back 
to NSC Tiny BASIC 



STOP AT 99 
>RUN 

SENSE A IS LOW 



STOP AT 99 



1 






•TITLE SENSE 


Assembly 


Lanquaqe 


7 


0000 




N0I800 ' IHEXADECIMAL 


II 


II 


3 


1800 


06 


LD 


A,S 


41 


41 


4 


1801 


0410 


AND 


A, = 16 


II 


U 


5 


1803 


6C02 


BZ 


LOW 


II 


II 


6 


1805 


C401 


LD 


A, = l 


II 


II 


7 


1807 


CA00 


ST 


A,0,P2 

— (This qets you back) 


II 


II 


8 


1809 


5C 


RET4- 


II 


11 


9 




0000 


.END 




Jl 


II 
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8.3 DELAY 



Often, 3 Droqram needs to give itself a cause to allow some external 
event to occur, or tust to let you think for a moment. 

For example, take the case where you have written a routine to ring 
the bell when your results are back from another nrooram. If the oro- 
gram is a long one, you can go talk on the telephone until it is fin- 
ished and you can hear the bell ringino. If the program is ended in a 

1 OOD« 

980 PRINT "CNTRL G^itRRM RING BELL 
990 GO TO 980 1 REM DO IT AO MM. 

the t-erminal will continue to ring the bell, or the TTY will sound like 
an alarm clock, until you get away from the ^ohone and stop the pro- 
gram. 

A better way to handle this situation is to waste some time before the 
bell is rung again. Many programs do this with loops that waste time* 

980 PRINT "CTRL G"|iREM RING BELL 

990 FOR 1=1 TO |000tNEXT I tRFM WASTE TIME 

1000 GO TO 980JREM RING BELL AGAIN 

unfortunately, this kind of time wasting is not precise and the number 
of times you go throuoh the loop must be worked out by trial and error. 

NSC Tiny BASIC has an inherently more precise method of generating time 
delays. This method is the use of the DELAY instruction, which can 
stop the processors operation for I to 1040 time units. If your INS 
S073 is clocked by a precise 4 MHz timebase, these time units will be 
exact milliseconds. The example system in Section 3 of this manual 
uses such a crystal. 

If you wanted your end-of -program bell to rina only once oer second, 
as a gentle reminder for you to go to the system, all you need do is 
to chanoe the initial example program* 

980 PRINT "CTRL G»'I«REM RING THE BELL 
985 DELAY I 000 « REM WAIT ONE SECOND 
990 GO TO 980 « REM DO IT AGAIN 

Notice that the number (or expression) that follows a DELAY instruction 
is equal to the number of milliseconds required. If, however, you type 
"DELAY 0" the ml croin tern reter will default to the laraest possible de- 
lay of J 040 milliseconds. 
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R.4 The ON Statement 



Sometimes a nrogram can't resnond quickly enough to a stimulus through 
normal program operatidn. For examole, take a system which must count 
widgets while calculating Pi to a million decimal olaces. The calcu- 
lation of Pi will obviously take the "smartest" comouter hours of cal- 
culations of Taylor series Dolynomials. The widgets are passing by on 
a conveyer belt at the rate of three oer minute. Should the orogram to 
calculate Pi t^ke a oeek during every stage of its calculations ^ust to 
look for a widget? The obvious answer is no as this would waste too 
much time I and the hoiJrs-long orogram might end up faking a week to 
execute. 

The INTERRUPT can break into a program, perform some time intensive 
function, then allow norma l^ooerat ion to continue without any inter- 
ference with the main or6gram. An interrupt operates the same-^-way you 
would if you were reading a book and the 'ohone rajig. First you'd 
save your place in the book, then you'd talk on the 'phone until your 
business was done, then you would hang up and go back to your book to 
tne place where you left off. 

The INS8073 handles Interrupts with the ON statement. When you sayt 
1l0 ON 1 250 

vou're saying, "If something (widget detector) puts a 0 on inout SEN5A/ 
INTA on the INS8073, act like you first encountered a GOSIJR ?50J'. 

There are two inputs on the INSR073, INTA and INTB. Corresnondingl v, 
there are two ON statements, ONI and 0N2. Unfortunately, the INTA in- 
nut is also used for serial innut for the RS-23? or TTY terminal. This 
means that the ON statement can't be used If you want to use a terminal 
with an NSC Tiny BASIC system. The ON instruction is, however, very 
useful in a ROM-based direct executing system. 

An interrupt may be disabled at any time by executing the command* 
ON I 0 

which acts only on INTA. This can be used to put the mlc roin tprpre ter 
into a ''Don't bother me, I'm busy'' state. 

The following is a program that counts how much time has elansed until 
an Interrupt occurs, and, how many times it has been interruotedt 

10 RFM TURN ON INTB 
20 ON 2 200 

30 A=A+1»RFM HOW LONG SINCE LAST INTERRUPT? 

40 GO TO 30tREM KEEP COUNTING 

55^ REM END OF MAIN PROGRAM 

?0?l REM START OF INTERRUPT ROUTINE 

210 REM A "GOSUR" TO THIS LOCATION IS GENERATED 

220 REM BY A HIGH TO LO^ TRANSITION ON INTB 

230 B*AtREM STORE TIME BETWEEN INTERRUPTS 

240 C=C-»-|:REM COUNT HOW MANY INTERRUPTS HAVE OCCURRED. 

250 A=0»RE.v. INITIALIZE THE COUNTER 

260 RETURN f REM KPPP WATCHING THE TIME 
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Although this proqram has no oractical anolicatlon, it should show you 
how to use the ON statement well enough to enlighten you about the 
basics of interruots, 

8.5 The STAT Function 

There is a function in NSC Tiny BASIC which allows you to ooerate 
directly on the Status Register of the CPU. The status register can be 
loaded, or examined, through the use of the STAT function. This is 
another way of settina the internint enable bits on the nrocessor, al- 
though it does not allow the assignment of a line number for the inter- 
runt service routine. Therefore, the STAT function is not recommended 
for interrupt servicing. 

The bits of the Status Register ^re defined as follows! 



BIT NUMBER FUNCTION 

7 CARRY \ Not recommended for use 

6 OVERFLOW / in NSC Tiny BASIC 

5 SENSE A/INTA\May be examined as sense 

4 SENSE R/INTSy lines by the STAT operator 

T FLAG 3 May be set usino the 

2 FLAG 2 ) STAT operator 

I FLAG I ) 

0 INTERRUPT Not recommended for use 

ENABLE with NSC Tiny BASIC 



The SENSE A and SENSE B lines may be used as innuts and are read-only. 
If a serial terminal is being used to program the mlcrointeroret er, 
SENSE A will already be occuoied and SFNSEB will have to be used. 

The FLAG I, 2 and 3 outputs are write-only, and FLAG 2 and FLAG 1 are 
used for the Read Relay and RS-P3P/TTY outputs respectively. There- 
fore, only FLAG 3 is available. You can see how they operate if you 
connect simple device*^ to one 5ENSF input and one FLAG output. 

Assume that you have a source of slowly changing "L's" and "^^s" coming 
into SENSE B. A simple switch would be a fine example. Also assume 
that an audio amplifier is attached to FLAG 3 so that you may h^ar the 
output. With the following program you can detect the switch position 
with your ears* 

\7i REM SENSE B TO FLAG 3 PROGRAM 

?0 A=STAT AND #10«REM SENSE B BIT ONLY 

30 IF A>0 THEN GO TO 20 t REM SWITCH OPEN, NO SOUND 

4'7J STAT=STAT OR #8tREM SET FLAG 3 

50 DELAY 5IRFM \m HERTS HALF WAVELENGTH 

6<?> STAT=STAT AND #F7tREM CLEAR R-AG 3 

70 DELAY 5 too TO 20tREM TEST SWITCH AGAIN 

thus, you can use the STAT function to control minimal I/O in your 
system. 
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If you insist on usinq STAT to set the Interrupt Enable bit, be aware 
that that bit will not be set until after the end of the next in- 
struction. This gives you some time to preoare, 

8.6 Multiprocessing, INC (X), Df.C (X) 

The INC and DEC, or Increment memory location and Decrement memory 
location instructions are orovided to facilitate usinq NSC Tiny BASIC 
in a multiprocessor environment. 

Multiprocessing is an art in itself and is considerably beyond the 
scope of this primer. If you require more information on multiprocess- 
ing, refer to the »»7'^ Series Microprocessors, User^s Manual". 

If you are familiar with the techniques of mul tinrocessinq with the 
INSR(^70 series of microprocessors, then you are familiar with the 
attributes of the ILD (Increment and Load) and DLD (Decrement and Load) 
instructions. INC and DEC provide the same function in NSC Tiny BASIC 
format. The instructions are non-interruptabl e and can be used for 
semaphores between microprocessors. 

If you choose to use the IMSR073 in a bus-coupled microprocessor syst 
one precautionary note is qiven; the variable RAM at location X'l0i^^1- 
X'I0FF must be separate for each processor on the bus. If this is not 
observed, FOR loops, subroutines, and evpn the variables A throuqh Z 
will become hopelessly garbled. All other external memory may be 
shared . 

8.7 CLEAR 

The CLEAR statement is used to zero all variables, and terminate all 
pending interrupts and loops. This statement should be used with ex- 
treme caution as it can terminate program execution. When properly 
used, it can be a boon in setting ud initial conditions within a pro- 
gram . 
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CHAPTER 9 



9.1 Memory Organization 

In order to use NSC Tiny BASIC, you must have an INSB073 system with a 
minimum of 256 read/write memory locations needed to store the 
variables from A to Z and to accomplish other housekeeoinq functions. 
In most cases f^ore memory is needed; a typical system should have at 
least ?,K (2048) bytes of RAM. Each memory location stores one byte, 
and in a tyoical system with 2K (2^48) bytes of RAM, jsach location has 
a unique memory address runnino from 4096 to 6 143. The mi crointeroreter 
will only see RAM locations t^^at are contiguous (non-stoo with RAM 
starting at the location 4096. 



The memory is organized as follows* 

1. The first 2560 locations consist of NSC Tiny BASIC, in on-chio ROM 
(Read Only Memory) on the INS8070 chip. In other words, NSC Tiny 
BASIC consists of 2560 bytes of ore-orogrammed memory occuoying 
locations 0 to 2559. 



2. The,next 1536 locations are unassigned and can be used for ROM, 
data RAM or I/O devices. 



3. The next 256 or more locations, with addresses from 4096 to 65470 
if desired consist of RAM (Random Access Memory, also called Read/ 
Write Memory). This nart of memory serves two ouroosesi 



a. Locations 4096 to 4351 are used by NSC Tiny BASIC as a 
"scratchoad memory". They are not available for your use. 

b. Locations 4352 to your last RAM location are yours to use. 
When you type? 



NEW #1000 

NEW 



then store a program (with line numbers), your program is 
stored in memory, beginning at location 4352. 

4. If automatic ROM execution is desired after a RESET, the ROM pro- 
gram must start at location 8192, and can extend uo to 65471. 

5. I/O devices may be memory-mapoed in any unused memory locations in 
the ranges 2560-4095 and 4352-65470. 

6. No RAM or I/O device can occupy memory location 65471. I/O devices 
should not be maoned contiguous with RAM from 4096. 
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65,535 
65,471 or -64 





64,767 or -768 



mum/. 



8192 



ON-CHIP RAM 



MEMORY-MAPPED 
I/O DEVICES 



ROM 
FOR AUTOMATIC 
EXECUTION AFTER 
A RESET 



FFFF 
FFCO © 



(Any address locatiorts 
between 1100 and FFBE or 
OAOO and OFFF which are not 
used by memory) 



FDOO @ 
(UP TO FFBF) 



2000 

(UP TO FFBE) 



RAM (MINIMUM 

= 256 BYTES) 



4096 



2559 




lOOO (D 



09FF 



0000 



NOTE 1. RAM or I/O devices must not occupy location 
XFFBF. 

NOTE 2. The microinterpreter will assume the only 
available RAM is that which starts at location 
X'1000 and ends at the first discontinuity en- 
countered above that address. 

NOTE 3. Location X'FDOO must be used to set the baud 
rate of the console device. If no console is 
used, this location may be used as desired. 



Fiqure 9-1, NIBL Memory Diaqran 
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Tne following table summarizes the memory organization in a minimum 
NSC Tiny BASIC system. 



Table NSC Tiny BASIC Memory Organization 

LOCATIONS CONTENTS 



0 


- 2559 


NSC Tiny BASIC System (ROm) 


4096 


- 4351 


Scratchpad Memory, (RAM) 


4352 


- 6143 


User Space, Your programs are stored 



here. 

User soace, lofc^tions 4352-6143 will hold 1792 bytesi this is e|ough to 
store apnroyima tely sixty NSC Tiny BASIC statements. Additionai memory 
can be addedt and, if your system has 4096 bytes of RAM, the user soace 
locations run from 4352 to R19I. 

The memory layout for the example board is given in Section 3. 
9.2 TOP Location 

The first location that is free for your use has a special name, it-'s 
called TOP. The statement* 

>PRINT TOP 

will cause the address of the first free location to be printed. 

To see how TOP works, clear away any old program by typing NEW #1000 
then NEW, print out the value of TOP, then store a line or two of any 
proaram and try printing TOP again. 

>NEW #1000 
>NEW 

>PRINT TOP 

4353 ^ ^Remember 4352 is the beginning of »*user space". 

A program (even with no lines) takes up one byte. 

>I0 REM THIS TAKES UP SPACE 

>PRINT TOP 

43B0 < Locations 4352 through 4379 are in »»use". First 

available is now 4380. 

A longer program will use fjp more space. 

>NFW #1000 
>NEW 

>PRINT TOP 

4353 < TOP points to the beginning of NSC liny BASlC-'s 

user space. 
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>\m RRMARK POWRRS OF TWO 
>110 P=l 
>I?I?I PRINT Pi 
>13l^ P=2*P 

>14(^ IF P=64 GO TO 1?0 
>999 STOP 

>PRINT TOP 

4440 ^ Next available location Is now 4440, 

Remember, the value of TOP is the address of the next available memory 
location beyond the last byte of your NSC Tiny RaSIC nroqram. 

Choose a safe location far away from the small nroqram that you will 
write shortly, for example location 5000, You want to store a number 
into loca tipn-§0^^0, that is, you want to nut a number (say 55 )i^t^*5000. 

>05 000=55 

The # is the familiar ••at" symbol and means "at the location". Re- 
member, location 5000 is an actual memory location and not an outout 
oort. If you could peek into location 5000 you'd now find the number 
55 resting' therel however, since you cannot "see into-*» locations, 
tell NSC tiny BASIC to print a copy of whatever is stored there. 

>PRINT G5f^m 
55 

Try some more, 

>fl5001=37 ^ Put 37 into location 5001 

>PRINT 135001 
37 

> 1*500 2= e5 000+^ 00 1 

>PRINT mm?. 

9? 

Did you follow the last examole? You previously had out 55 into lo- 
cation 5000 and 37 into 5001, you can add them ( *l5000+«500 1 ) and put 
the result into 5002. 

You can use 1*5000, ©5001, #5002 and so on lust as you use variables 
A throuqh Z, except for one thinqf 

Numerically addressed locations can store one byte only. 
They accept numerical values from 0 to 255, Inclusive, 
You cannot store neqative numbers or numbers laraer than 
255 in these Incatlons. 
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As you HTiay susoect, the variables A through Z each occuov two bytes 
in the INSBC173's memory. 

The following illustrates what would hapnen if you tried to put a 
number larger than 255 into a numerically addressed location! 

>«50(?I4=?56 

>PRINT mm4 

>«*5005=257 Try some negative numbers 

and see the results. 

>PRINT ^bmb 
I 

>«I5 0(^6=5 11 

>PRINT l?5006 
255 

Attempting to out a number into a memory location that is too large or 
too small for that memory location will not result in an error message. 
The number will be treated modulo 256 (that is, it will be divided by 
256 and the renainder put into the location). 

One trick to using memory locations is to call them TOP+I , TOP+2 and so 
ont as your program changes size, a notation such as« 

>«(TQP-i'23) = 21 1 

is always above your program. A check for the too of memory can be 
done easily using the IF statement (assuming that M is the number of 
the memory locr^tion you were about to use, and that your memory went uo 
to location 5143)« 

>70 IF M>5I43 THFN PRINT "OUT OF MEMORY" 

In summary! to put a value "V" into a memory location M write 

>«tM=V 

and the value of the memory location M is given by the eynression ©M, 

The at sign {^) should be used with caution. Placing a value in memory 
used by your program (at a location less than TOP) can cause the pro- 
gram to "blow Up". This mean<; that it refuses to work, and there may 
be no way to LIST or otherwise preserve it. Fven if it doesn't blow 
uo other Insidious changes that can be hard to find can occur. Be 
careful. 
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The following lists the locations that should not be used« 
LOCATIONS 



to 2559 



ROM (on-chio) 



-64 to -1 



RAM (on-chio) 



4096 to (TOP-1 ) 



nroaram in our tvplcal system 



9.3 Strinqs of Characters 

An important feature of NSC Tiny BASIC is its ability to inout, outnut 
and manipulate characters as well as numbers. As you have already 
seen, the statement' 

>220 PRINT "FLOW 0K-»« 

will cause NSC Tiny BASIC to print the words* 

FLOW OK 

The information between quotes is called a string. 

The computer can store strings, recall them and do other operations on 
them as well. These abilities are especially handy where the user of a 
program should communicate in something resembling natural language. 
It might be more convenient to have a user type YFS as an answer to a 
question rather than have the computer type "FNTFR 1 IF YOU MFAN YFS 
OR 0 IF YOU MFAN NO". 

To have a user of your program utilize string input, you have to first 
decide where the computer will put the string. The previously de- 
scribed TOP function oives the first location in memory that is avail- 
able to the user. If the program assigns* 



then S will be the address of the first location in memory that can be 
used. In the following case it will be used for storing a string. 
tMhen yon want to work with strinas inst'»ad of numbers, use the dollar 
sign ($) to tell NSC Tiny BASIC to expect a string. The statement* 



stores whatever string the user types beginning at location S. The 
first character of the string goes right at location S, the next 
character at location S+1 and so on. Input stops when the RETURN kev 
i «= pressed. The code for the RFTURN key is stored at the last charac- 
ter of the string. This is important as it allows you to find the end 
of the string later. 



S=TOP 



INPUT $S 
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Try the following oroqram, note the $ sign in Lines 20 and 30. 
>NEW 

>10 S=TOP+!00tRFM SET S TO POINT AT A FREF SPOT IN MEMORY 

>20 INPUT SSiREM GET SOME CHARACTERS 

>30 PRINT SStREM TYPE THE CHARACTERS JUST OBTAINED 

>RUN 

?ABC 4 ABC is the inout string. 

ABC 

>RUN 

? SAM 1?3 4-r^ This is^a California license olate number. 

SAM 123 

>RUN 

?^<97#0+*! 4 You can use ]ust about any TTY character in 

%07#Q-f! a string. 

> And so on. Try some of your own. 

In the second RUN above, we tyoed SAM 123 and oressed RETURN. 
Therefore, a string of eight characters will be stored, beginning at 
TOP+100, as followst 



LOCATION 


CONTENTS 


TOP 00 


S 


TOP+I01 


A 


TOP + I02 


M 


TOP+.J03 


soace 


TOP-H04 


1 


TO.P+I05 


2 


TOP +106 


3 


TOP+107 


RETURN 



key code 



Remember, each location stores one byte, so each character or key code 
is stored as one bvte code. 

In the following orograrn, we use a string variable $R« 
>NEW 

>60 R=TOP+I0iREM SET R TO POINT AT FREF SPOT IN MEMORY 
>70 $R="ABCDEFGHIJKLMN0PQRSTUVWXY7« 
>B0 PRINT $R 
>RUN 

ABCDEFGHIJKLMNOPORSTUVWXYZ 
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In the nfecedinq nrogram, $R is a strlna variable. In Line 7(^, you 
assiqn it a string value consisting of the 26 letters of the alohahet. 
Note that these letters are enclosed in quotation marksl however, the 
quotation !T»arks are not stored as part of $R. The string in the $R 
will be stored in TOP + )0 through TOP+35 and a RFTURN key code will be 
put into TOP+36 to mark the end of the string. 

Add the following lines to the above orogram, (don't type NEW!) 

>90 $R="HFLLO« 
>100 PRINT $R 
>RUN 

ABCDEFGHIJKLMNOPORSTUVWXYZ 
HELLO 

It is your resDonsibll ity , as a oroqrammer, to see that thdfe is enough 
soace for strings. For example, add the following IJnes to the program 
we are develooingt 

>l 10 E=T0P+12 
>I20 $E="I23" 

>130 PRINT SRtREM YES WE DO MEAN $R AND NOT $E 
>RUN 

ABC 

HELLO 

E123 

Note the strange result when this part of the program is RUN, This 
demonstrates that you have to be able to ouess about how long strings 
are going to be when you decide where to out them in memory. 

Try other strings for $R and $E in this orogram, and see what con- 
ditions cause overlap, and by how much. Change the constant in Line 
110 as well. A few experiments will teach more than a thousand words 
of text. 

String characters are actually stored as numbers. There is a standard 
numerical code for each ITY character, called ASCII (American Standard 
Code for Information Interchange). This code is used by all manu- 
facturers of computers and communication eguioment. There are other 
codes in use too, but only by a small number of manufacturers, and they 
make ASCII available to their equipment. It is easy to write a program 
that will show the ASCII code that NSC Tiny BASIC uses to store string 
cnaracters. This program will print the ASCII code for a character as 
a decimal number after you have typed in the character and hit the 
RETURN key. 

>LIST 

\m REM PROGRAM TO PRINT ASCII CODES FOR TTY CHARACTERS 

110 A=TOP+500iREM LOCATION TO PUT CHARACTERS 

120 PRINT "EACH TIME I TYPE A OUESTION MARK, YOU TYPE" 

13^ PRINT "A SINGLE CHARACTER AND HIT THE RETURN KEY'** 

140 PRINT ♦•••tINPUT $A«REM GET A CHARACTER 

150 PRINT oiAiRFM PRINT ASCII CODE 

100 GO TO 140tREM DO IT AGAIN 
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>RUN 

RACK TIMF 1 TYPE A QUESTION MARK, YOU TYPE A 
SINGLE CHARACTER AND HIT THE RETURN KEY 

?A 
65 

?e 

66 

?C 
67 

? ^ Xhis is CONTROL G (used riruj the BELL). It is a 

7 oon-orinting .character. 

?^ 
J7 

48 

?l 
49 

?2 
50 

? ... Your turn, exoerinient. 

Using this program, look at the ASCII codes of the letters, numerals, 
and special characters on the TTY keyboard. Remember, NSC Tiny BASIC 
stores the RETURN character at the end of each string. How would you 
orint out the ASCII code for the RETURN key? (See Anpendix C) 

Using the program as written, find the ASCII codes for CONTROL A, CON- 
TROL B and so on. There is a problem trying to orint the code for 
CONTROL C. Can you deduce its value? (See Appendix C) 

The last string feature in NSC Tiny BASIC is string replacement. If P 
and 0 are suitably defined (as pointing to memory) then a statement 
such as« 

>500 $P=$0 

will take the string starting at location Q and make a copy string 
starting at location P. Remember, it is up to the programmer to be 
sure that there is enouah room for this to occur. A real disaster can 
occur if P=0+l . For instance, when Line 500 is executed, the character 
at location Q is placed in location P. But, location P is the second 
location of 0! (Remember P=Q+1 . ) This means that the first character 
of 0 is now also the second character of Q. Since this is a string 
copy instruction the next thing that happens is that the second char- 
acter of 0 is conled into the second character of P. The second 
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character 'Of Q was just cooied from the first character Q, so the 
second cfsaracter of P is the sane as the first character of 0. Now, 
since P=Q + 1 the second character of P is the same as the third char- 
acter of Q. And so it goes, with the first character of 0 being cooied 
over and over again. The process will never stool if there was a 
RFTURN sonnewhere in P it will be "clobbered" by the constantly cooied 
character. Soon all memory will be filled by this one character, 
your orooraTi will be destroyed, and, NSC Tiny BASIC will come to a 
grinding halt. Be careful to avoid round robin situations like this 
one. Try it once. 

To compare strings in an IF statement you must comoare the ASCII values 
since NSC Tiny BASIC doesn-'t allow direct comoarison of strings. This 
merely means using ^ instead of $. and doing the comoarison one memory 
location at a tifr**, 

9.4 Exercise 

/irite a program to compare two INPUT strings and orint "THE STRINGS ARE 
EQUAL if they are, and "THE STRINGS ARE UNEQUAL" if that is the case. 
The following is a nart of the nrogramt 



>LI5T 

100 REM PROGRAM TO COMPARE TWO STRINGS 

110 PRINT "THIS PROGRAM COMPARES TWO STRINGS AND TELLS" 
120 PRINT "YOU WHETHER THEY ARE EQUAL OR UNEQUAL. 
130 A=TOP+100 
140 B=TOP+200 

150 PRINT ""iPRINT «EIRST STRING"! « INPUT $A 
160 PRINT "SECOND STRING"! f INPUT $B 
170 GOSUB 10101 REM GO COMPARE STRINGS 
1S0 GO TO 150tREM GET TWO MORE STRINGS 

1000 REM SUBROUTINE TO COMPARE STRINGS AND PRINT MESSAGE 
1010 Your work beoins here... 

Write the subroutine to compare the strings and print the appropriate 
message. A RUN of the complete program might look like thist 

>RUN 

THIS PROGRAM COMPARES TWO STRINGS AND TELL YOU WHETHER THEY 
ARE EQUAL OR UNEQUAL. 

FIRST STRING? ABC 
SECOND STRING? ABC 
THE STRINGS ARE EQUAL 

FIRST STRING? ABC 

SECOND STRING? DEE 

THE STRINGS ARE UNEQUAL 
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FIRST STRING? AB 

SFCOND STRING? ABC 

THE STRINGS ARE UNEQUAL 

FIRST STRING? ABCD 
SECOND STRING? ABC 
THE STRINGS ARE UNEQUAL 

FIRST STRING? A BC The space is a oart of tne string 

SECOND STRING? ABC 

THE STRINGS ARE UNEQUAL 

FIRST STRING? 



See Appendix A for answers 
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CHAPTER 10 



10.1 Interfacing Other Devices To NSC Tiny BASIC 

Devices other than the TTY or terminal can be attached to the examole 
system via the memory bus. The INSR(^73 Data Sheet contains the nln 
assignments and interfacing data needed to talk to It via the bus. 
This chanter describes a simole ci^rcuit for you to wife un and nluq 
into the INSRi7l73. Then you will be guided in writing several simole 
control nrograms to exercise the circuit. Our circuit is very 
simole, consisting of a switch and a LED, with the INSB073 in 
between. 



'SWITCH 




INS8073 




LED 





► 



An I/O device looks like a memory location both in hardware and in 
software. It decodes an address and accents or sends a byte of data. 

For this chaoter, the reader is assumed to be familiar with digital 
logic, the various forms of binary and hexadecimal notation and the 
other mental enuinment u^^uallv acquired by those who design digital 
electronic circuits. 

In NSC Tiny BASIC the 16 bit address corresponds to the signed 
numbers from -32768 to 32767. The high-order bit, instead of being 
treated as a sign bit, becomes simoly the high order bit of the 
address. The simolest way to address locations above 32767 is to use 
the hexadecimal format. 32767 = #7FFF. Negative decimal numbers 
in NSC Tiny BASIC where the high order bit is the sign bit, are twos 
complement 16 bit binary reoresentations. Thus -1 (in binary 1111 
nil nil II II) used as an address would access the same memory 
location as #FFFF. All in all, it is clearer to use hexadecimal 
notation in NSC Tiny BASIC for addressing high memory locations. 

The tinning considerations for address and data set un and strobes can 
be found in the INSB073 Data Sheet. Usually the NSC Tiny BASIC orogram 
itself does not have to be concerned about outnut timing as NSC Tiny 
BASIC is very slow with resoect to TTL or any other semiconductor 
technology. Almost any circuit can easily follow the outout from an 
NSC Tiny BASIC program. On the other hand, it is easy to feed data to 
the comnuter too quckly for NSC Tiny BASIC to follow. For many control 
aoolications , a response time on the order of a second is adeouate, and 
in those cases NSC Tiny BASIC can be used in an on-line device. Faster 
response can be obtained by using interrupts or nrogrammlng in the 
AHSS^13 assembly language. National Semiconductor Publication Number 
,jPG-4;?(?)3(;i62 55-P>'?ll describes th'^ facilities of the assembler. 

Even if the assembler is to be used, NSC Tiny BASIC is still a aood 
way to check out the algorithms and the interfaces quickly and 
inexpensively. Use of the a«;<^embler is considerably more time 
consuming and costly than writing in NSC Tiny BASIC. 
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10.2 Hardware Interface 



The circuit, shown below. Is in two parts. The first part lights an 
LED when the anorooriate NSC Tiny BASIC command is given. Instead of 
an LED the circuit could have a relay, or other device that is to be 
controlled. The LED, of course, could also be part of an onto-i sola tor 
or the inout to a solid state relay. 

The NSC Tiny BASIC statement! 

>©#7FFF=I 

outs the value 1 at location (in hexadecimal) #7FFF. This location, 
instead 0^ being a memory location, is used for I/O. The hardware 
you at^^fiohstructino has to recognize when it is being af^flfi&ssed. This 
occurs When the number #7FFF aooears on the address lines, labelled A0 
through A 15 (oins 9 through \9 and 2\ throuah 25 on the INSB073 As it 
haooens #7FFF in binary is 01 t I 1111 1111 Mil so you want to recognize 
when all address lines are hioh. There are a number of ways to do 
this. Three DMR131 bus comparators would do, but you may choose the 
more ele'nentary method of ANDina the lines tonether. To do this two 
DM74LS3^ eight input NAND gates are used. The output of the DM74LS30 
is low only when all eight inputs are high. Thus the address is 
correct for the device when the outputs from both DM74LS30-'S are low. 

The two outputs from the DM74LS30'S go into one NOR gate of the guad 
NOR (a DM74LS02). This NOR is high when both inputs are low. You will 
need a low when the outputs from the DM74LS30''S are low? therefore, 
ADM74LS04 is used as an Inverter. 

Now the circuit can detect its address, but all kinds of signals appear 
on the address bus when a program is running. Therefore, another line 
NWDS (pin 6) is on the bus. This line is noT-mally high but goes low 
when the CPU puts an address on the bus as part of a memory write In- 
struction. This is the only time that you want the circuit to "look 
at" the address lines. Another section of the DM74LS02 detects when 
the 8(icirG*^s is ^7FFF at the same time NWDS is low. At such times the 
output of this NOR gate goes hioh. This signal clocks one of the flip- 
flops of a nM74LS74. This is a D type flip-flop so that when the clock 
makes an upward transition the logic level at the data input is copied 
to the Q output? it is held at that level until the next positive edge 
on the clock triggers the flio-flop. Thus the DM74LS74 captures the 
data from the bus on data line D0 (oin 33). Any of the data bits could 
have been used, this is an arbitrary choicel in fact, by using four 
DM74LS74's all eight bits could be used. 

This half of the circuitry can be summarized as follows* when the 
nroner address appears on the address bus, and NWDS is active, the low 
order data bit appears pn the output, and is held there. This bit is 
ifsed to light an LFD. 
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Figure 10-1 . LED I/O Schematic Dlaqram 
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Inout to a computer Is simnler. A o«i11ud resistor and a switch outs a 
loqic 0 (switch closed) or a loaic I (switch ooen) on the input of a 
TRI-STATE buffer (DM74LS1?6). This is the desired loqic level we wish 
to communicate to the comouter. The output of the buffer is fed to the 
same bit of the data bus. This demon??trates the bi-directional 
nature of the bus. The sa^ne pin (oin 33 which was lust used for output 
is now used for input. The comouter knows which is which by putting 
another signal NRDS (nin 4) on the bus whenever it wants data. 

^ihen NRDS is low the comouter expects the circuit you are building to 
olace data on the data lines. The TRI-STATF buffer is in its high- 
imoedance ^tate, thus not aff ecti^flg- the bus, until a signalf^gates It. 
The 5 tonal Is the NOR of MRDS ahd*^the address circuit already dp- 
scribed. Thus the value of the switch is out on the bus only when 
NRDS is active and the correct address is on the address bus. Another 
method is available to the user of the example system shown in Section 
3. 

l(?5.3 Examole System LFD Flasher 

An easy way to attach a switch and LFD to the examole board is shown 
below. The LED is connected to the output of the 8l54^s I/O port, 
and a switch is connected to a different nort. 



Before any programs are ooerated, the rNS8154, which controls these 
oins, must be initialized. Reasoning behind this can be found in the 
Data Sheet for that device. To set the INSB154 to outout to the LED, 
tyne* 

>e#9AA2=C^l 

Changes will also have to be made in the preceding programs to reflect 
that* 

1. The switch is now read as bit 0 of address #9AAI 

The LED is now bit 0 of location #9AAI 
3. Trie LED now lights when given a 0 inout and goes dark when its bit 

is set to a 1 . 

Once these few changes have been made, the LED flasher problems can be 
implemented for the circuit the same as the other. 

There are many other ways of imnlementing these functions, and this 
fnanual is not intended to instruct in hardware design. This circuit is 
oresented as material for a programming exercise only. 

Placing an inverter between any of the address lines and the inouts to 
the DM743'?!'S will require that bit to be zero in order to address this 
device. Thus any address can be used if #E FFF is not anoropriate for 
your system. 



connector P3-33 
connector P3-50 




connector 
connector 
connector 
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PrQqramminq the Circuit 

It is assumed that you now have the circuit wired uo, ready to test. 
To test the circuit, type the foUowinq NSC Tiny BASIC statements and 
watch the results. 

Turn the LFD ON 

>U#7FFF=1 The LFD should come ON 

Turn the LFD OFF 

>©#7FFF-C^ The LFD should qo OFF 

Open the switch and tyne 
>P^INT @#7FFF 

I If the switch is on en ^ you should qet 1 

Close the switch and tyoe 

>PRINT @#7FFF 

If ^he switch is closed, you should qet 0 

If the above didn'^t hanoen, double check your I/O circuit before 
oroceedinq. 

The followinq nroqram senses the position of the switch and makes the 
liqht behave accordinqlyf 

>\m M=#7FFFtRFM PUT THF DEVICE ADDRESS IN M 

M10 S=«»MfRFM SAVE THE VALUE OF THE SWITCH IN S 

>130 ©M=S«REM SEND THE VALUE OF THE SWITCH TO THE LIGHT 

>!40 GO TO n0iREM REPEAT, KEEP CHECKING SWITCH 

This oroqram could be shortened tot 

€»#7FFF=fl#7FFF 

>60 GO TO 50 

but it is not as clear that way. Goinq back to the first oroqram, you 
can see one of the advantaqes of software over hardware. If you want 
to chanqe the sense of the switch, have i t on when it used to be off 
and vice versa, all you need to do is chanqe Line 130 to« 

>130 ©M=NOT (S) 

and the switch works the other way around, without chanqinq a sinqle 
wire. Now the liaht i s ON when the switch is closed and OFF when the 
switch is open. While it Is not hard to chanoe a wire, if this were 
Dart of PI device committed to a printed circuit board, it miqht be 
quite exoensive to either modify all the boards or have a new desiqn 
nut into nroduction. The software chanqe is often far simpler. 
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SuDpose you want the liaht to be OFF when the switch is closed and 
blink ON and OFF when the switch is ooen. 

100 M=#7FFF»REM PUT THF DFVICE ADDRESS IN M 
110 S=l*MfRFM SAVE THF VALUE OF THE SWITCH IN S 
130 REM IF SWITCH OPEN, BLINK LIGHT ON AND OFF 

140 eM=StGOSUB P10«RFM LIGHT FOLLOWS SWITCH ON AND DO A TIME DELAY 
I5« ¥lM=citGOSUB 2l(?'»RFM TURN LIGHT OFF AND DO A TIME DELAY 
160 GO TO 110 

200 REM TIME DELAY SUBROUTINE 

210 T=100tREM MAKE T BIGGER TO 'INCREASE DELAY 
220 DELAY T 
230 RETURN 

10.5 Exercises 

Rewrite the above oroaram so that the light blinks when the switch is 
closed and the light is OFF when the switch is ooen. 

Write a nroaram so that the switch 'nust be closed for several seconds 
before the light comes ON. If the light is ON, ooening the switch 
turns it, OF- innedia tely. However, if the light is OFF and the switch 
is closed, several seconds must elaose before the light comes ON. If 
the switch is onened during this time, the light will not come on, or 
even blink. 



Answers are in A no end ix A 
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Section 2 



CHAPTER 1 



I . I Introduction 

This reference quide is intended to provide you with inforfnation 
on the use of NSC Tiny BASIC lanquaae. This section will also 
provide you with information on NSC Tiny RASIC commands, statements, 
qrammar, error messaqes, and control characters. A brief description 
of each is qiven alonq with a short examnle or two to fie^onstrate their 
use. 

This reference oulde will provide a aulcV method of locatinq basic 
information on NSC Tiny RASIC. For a more detailed description, and 
examples of NSC Tiny BASIC-'s use. Section I should be consulted. 

To learn how to use NSC Tiny BASIC, you will need an INS8C^73 system 
and a teletype or CRT terminal. 
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CHAPTER 2 

2. I Language Exoressions 
P.UI Variables 

There are twenty-six variable names which can be used with NSC Tiny 
BASIC. These are the letters of the English language alohabet, A 
through Z. The values assigned to these variables are 16-bit signed 
integers. There are no fractions or floating ooint numbers. 

I .? Constants 

All numeric constants are decimal numbers excent when orticeded by a 
oound sign W) , If oreceded by #, the^ number is interoreted ^as a 
tt*5Xadecima I number-. The symbols 55 would be treated as a decimal 
=humber, while #55 would be treated as a hexadecimal number (eaual to 
R5 in decimal value). Decimal constants may be in the range of 
-3?767 to 32767. 

2.1.3 Relational Onerators 

Relational Onerators are the standard BASIC symbols* 
= eaual to 
> greater than 
< less than 

<= less than or enual to 
>= greater than or eoual to 
<> not egual to 

The relational onerators return either a 9i (FALSE) or -I (TRUE) 
as a result. NOTEi >< is an illegal ooerator. 

P.1.4 Arithmetic Ooerators 

Stand^ird arithmetic operators are nrovided for the four basic arith- 
metic functions. 

addition 

- subtraction 

• / division 

* mul t iol ication 
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Arithmetic is accomolishod by standard 16-bit twos-comol iment arith- 
metic, fractional quotients are truncated, not rounded? therefore, 
16/3 will aive 5, 17/3 will also aive 5 as a result. Retialnders re- 
sulting from division are droooed. No attempt is made to round off 
the quotient. As usual, division by zero is not oermittedl it will 
result in an error break. 

The usual algebraic rules for order in evaluating expressions is 
followed. The order of evaluation Is controlled by narentheses, and 
their liberal use Is advised. They provide clarity and avoid confusion 
in complicated expressions. 

?.l.5 Logical Operators 

NSC Tiny BASIC provides Logical Qixerators AND, OR and NOT in addition 
to the arithmetic operators. The^^e^ perform bitwise logical opera t Ions 
on their r6-bit arguments and produce 1 6-bi t Results. The^AND and 0^^} 
operators are called binary operators because they perform an oner^tiorf 
on TWO arguments (or operands). An examnle follows with binary inter- 
pretation! 



40 PRINT C 



>RUN 
67 

?. 1 .6 Logical AND 

>LIST 

10 INPUT A 

?0 INPUT B 

30 IF (A>50) AND (B>50) THEN GO TO 60 
40 PRINT »'ONR OR ROTH ARE SMALL" 
50 GO TO 10 

60 PRINT "BOTH ARR BIO" 
70 GO TO 10 

>RUN 
? 51 
? 52 

BOTH ARE BIG 
? 51 
? 49 

ONE OR BOTH ARE SMALL 
? 49 
? 49 

ONF OR BOTH ARE SMALL 
?"C 

STOP AT 10 



>LIST 
10 A 

;? 0 B 
30 C 



75 
Q9 

A AND B 



A = 0000 0000 0100 1011 
B = mm 0000 0110 0011 
C = 0000 0000 0 1 00 00 1 I 



> 
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2.1 .7 LoalcaT OR 



>LIST 

\9i INPUT A 

2^ INPUT B 

30 IF (A>50) OR (B>50) THEN GO TO 60 

40 PRINT "BOTH ARE SMALL" 

50 GO TO 10 

60 PRINT «ONE OR BOTH ARE BIG^' 

70 GO TO 10 

>RUN 
? 51 
? 52 

OJE OR BOTH ARE BIG 
? 51 
? 49 

ONE OR BOTH ARE BIG 
? 49 
V 49 

BOTH ARE SMALL 

STOP AT 10 
> 

?. 1 .8 Logical NOT 

The third logical ooerator (NOT) is a unary operator. It performs 
an operation on only ONE argument, as follows* 

>LIST 

>I0 A = n A = 0000 0000 0000 1011 = 11 

10 

>?0 B = NOT A 

>30 PRINT B B = nil 1111 nil 0100 = -1? 

>RUN 10 
-1 2 

2.2 Functions 

There are several functions that may be used in arithmetic expressions 
in NSC Tiny BASIC. These are described below, 

2.2.1 MOD (a,b) Function 

Returns the absolute value of the remainder a/b, where a and b are 
arbitrary expressions. If the value of b is zero, an error break will 
occur as in any division ooeration. As an example* 

>I0 A = 95 2_ 

>20i B = 44 44/ 95" 

>30 PRINT MOD (A,B) BR 

>RUN 7 MOD (95.44) 

7 
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2.2.P RND (a,b) Function 



Return?; a pseudo- random Inteqer in the range of a through b, inclusive. 
For the function to oerform correctly, a, should be less than, b, and 
b-a must be less than or equal to 32767 (base 10). A tyoical examole 
isf 



>I0 PRINT RND ( 1 ,!00) 
>RUN 
27 

2.2.3 STAT Function 



Returns the »-bi t value of the INS8073 Status Register. STAT may 
aooear on both sides of an Assignment Statement! so, the orogrammer 
can modify the Status Register as well as read it. The Carry and 
Overfiow Flags of the register are usually meaningle-ss* sinide the 
NSC Tiny BASIC interpreter itself is continually modifying these 
flags. The Interruot-Fnable Flag may be altered by an assignment to 
STAT these flags. The In terrunt-Fnable Flag may be altered by an 
assignment to STAT (such asi STAT = #FF). Location of individual 
flags are shown below* 



Most 

S igni f icant 
Bit 



7 


6 


5 


4 


3 


2 


1 


0 


CY/L 


OV 


SB 


SA 


F3 


F2 


Fl 


IF 



Least 

Sign i f icant 
Bit 



Examole of uset 



>I0 LET A = STAT 
>20 PRINT A 
>RUN 

176 The decimal number, 176, translates tot 

10 1 10 0 0 0 binary. 



2.2.4 Status Register Bit Functions 

The function of each bit in the Status Register is described belowi 



BIT DESCRIPTION 

7 CARRY/LINK (CY/L)« This bit is set to 1 if a carry occurs 

frofTi the most significant bit during an add, a comol iment-and- 
add, or a decimal-add machine language instruction. This bit 
may also be set by the operations oerformed by the SHIFT r^IGHT 
WITH LINK (SRL) and the ROTATE RIGHT WITH LINK (RRL) machine 
language instructions. CY/L is inout as a carry into the bit 0 
oosition of the add, comnl iment-and-add, and decimal-add machine 
language instructions. 
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vOVFRFLOW (OV)t This bit is set if an arithmetic overflow occurs 
during an arid ^ADD, ADI or ADE) or compl iment-and-add (CAD, 
CAI or CAP) machine lanquaqe instructions. Overflow is not 
affected by decimal-add (DAD, DAI or DAE) machine lanquaqe in- 
structions. 

NOTEt The above two bits may be of little or no use in an 
NSC Tiny BASIC oroqram. 

SENSE BIT B (SB)t This bit is tied to an external connector 
pin and may be used to sense external conditions. This is 
a "read-only** bit! therefore, it is not affected when the con- 
tents of the accumulator are copied into the status reqister 
by a STAT Instruction. It is also the second interrupt inout 
and may be examined by the "ON** cofnftQmd. 

SENSE BIT A (SA)t Thfs bit is also tied to an external connect- 
or Pin. It serves, as does SENSE BIT B, to sense external con- 
ditions. In addition, it acts as the interrupt inout when the 
INTERRUPT ENABLE (see bit 3 of status reqister) is set. This 
bit is also a "read-only«» bit. The same "0N*« command may be 
used to sense this innut. This flaq is used by NSC Tiny BASIC 
as the serial inout bit from the TTY or CRT. 

USER FLAG 3 (F3)t This bit can be set or reset as a control 
function for external events or for software status. It is 
available as an external outout from the INS8073. 

USER FLAG 2 ( E2 ) « Sam*» as F3. This flaq is used by NSC Tiny 
BASIC to control the oaoer tape reader relay. 

USER FLAG 1 (Fl)« Same as F3. This flaq is used by NSC Tinv 
BASIC as the serial outout bit (with inverted data) to the 
TTY or CRT. 

NOTE* The flaq 1, 2 and 3 outputs of the status reqister serve 
as latched flaqs. They are set to the soecified state 
when the contents of the accumulator are copied into the 
status reqister. They remain in that state until the 
contents of the status reqister are modified under oro- 
qram control. 

INTERRUPT ENABLE FLAG (IE)« Thfi processor recoqni^es the inter- 
runt innuts If this flaq is set. This bit can he set and reset 
under proaram control. When set, NSC Tiny BASIC recoqnizes ex- 
ternal interruot requests received via the SENSE A or B inouts. 
When reset, it inhibits the INSRJ?»73 from recoqnizinq interruot 
requests . 



2.2.5 TOP vFunction 

Returns the address of the first byte above the NSC Tiny BASIC nroqraTi 
in the current oaqe which is available to the user. This will be the 
address of the highest byte in the NSC Tiny BASIC oroaram plus I. All 
the nemory in the RAM above and includinq TOP can be used by the NSC 
Tiny BASIC oroqram as scratchpad storage. As an example* 

>|C9 PRINT TOP 
>RUN 

4400 4400 is the fir^t address of unusecj RAM 

2.2.6 INC (X) and DEC (X) Functions 

TllWlSfe^ statements increment or decrement a memory lo^i^lon X. 
Examples! 

>I0 LET X«|032 
>20 INC (X) 



>50 DEC (X) 
>60 INC (6000) 
>70 DEC (6001 ) 

These instructions are used for mul tiorocessinq and are non-interrupt- 
able. This means that if two R073^s are used on the same bus, when- 
ever one executes an INC (X) or DEC (X) instruction, other processors 
must remain idle. These instructions are used, qeneraliy, for commu- 
nications between processors in a multiprocessor system. 

2.3 Statements 

2.3.1 INPUT Statement 

Data can be input to an NSC Tiny BASIC oroqram by using the INPUT 
statement. One or more items (variables, expressions etc.), separa- 
ted by commas, may be entered according to the followinq formats* 

10 INPUT A 
20 INPUT R,C 

When the statement at Line 10 is executed, NSC Tiny BASIC prompts the 
user with a question mark. The user types in a number which is assign- 
ed to the variable A after the RETURN key is pressed. NSC Tiny BASIC 
then prompts the user with anpther question mark. The user tyoes in 
two exnressions, separated by cpmmas, which will be assiqned tP B and 
C in that order. 

RUN 
? 45 

? 237, 4455 
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NSC Ttny BASIC would now continue with execution of the oroqram. 
Strina inout is also allowed. See the String Handling section in this 
chanter for more information. 

NSC Tiny BASIC accepts both numbers and exoressions tyoed in resoonse 
to an INPUT reouest. For examolei 

A=I0 
>20 INPUT B,C 
>^0i PRINT B,C 
>RUN 

?A-».1,A*2 
II 20 

The comma between th^<ihtered expressions is not mandatory and can be^i%%' 
renlaced by spaces if the second expression does not start ¥ith a nlus 
or minus sign. 

There must be at least as many expressions in the innut list as vari- 
ables in the INPUT statement. If an error occurs when NSC Tiny BASIC 
tries to evaluate the tyoed-in expression, the messaqet 

^ RFTYPF 

is orinted along with the error message, and the question mark (?) 
prompt will apoear again so that the user can type the evDre«;sions 
correctly. 

The correct response to an ^INPUT Sfactor-' statement is a string, 
terminated by a carriage return. Quotation marks are not used for 
inout. 

INPUT may not be used in the command mode. 
2.3.2 PRINT Statement (Outout) 

The PRINT Statement is used to output information from the program. 
Quoted strings are displayed exactly as they appear with the quotes 
removed. Numbers are orinted in decimal format. Positive numbers will 
be preceded by a snace, and negative numbers will be preceded by a 
minus (-) sign. There is a trailing soace fpr all numbers. A semi- 
colon (?) at the end of a PRINT Statement suporesses the usual carriage 
return and line feed with which NSC Tiny BASIC terminates the outout. 

Strings stored in memory (such as those Generated by a String Input 
Statement) may also be nrinted. Refer to the String Handling Section 
in this chapter for more information. Typical example* 

>PRINT "THIS IS A STRING^' 
>20 A=I0 
>3«?i B=20 

>40 PRINT "10 PLUS 20=-", A+B 
>RUN 

THIS IS A STRING 
10 PLUS 20=30 
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?.3.3. LEJ Statement < Assiqnment) 

The word, LFT, f^qy be used or omitted in an Assianment Statement, 
The execution of an assianment statement is faster if the word LET is 
used. The left oortion of an Assignment Statement may be a simole 
variable (A-Z), STAT or a memory location Indicated by an # followed 
by a variable, number or an exoression in oarentheses* (refer to 
Indirect Ooerator for more information), Fxamnles* 

LET X»7 
X«7 

LET E»I*tt 
E«r*R 
STAT«#7<?I 
LET #A=255 
©(T+36 )«#FF 

Conditional assignments may be made without using an IF statement. 
The method hinges on the fact that all oredicates are actually evalu- 
ated to yield -1 if true, and Pi if false. Thus, if a nredicate is 
enclosed in parentheses, it may be used as a multlDlier in a statement 
ast 



LET X= -A*(A>=C1)+A*(A<0) 
which would assign the absolute value of A to X. 
2.3.4 The GO TO Statement 

NSC Tiny BASIC allows GO TO Statements to allow program branches to a 
specific line number or a line number called by an arbitrary ex- 
oression. As examnlesi 

10 GO TO 50 

would cause the nroaram to lump from Line 10 directly to Line but 
10 GO TO X-i-S 

would cause the program to Jump from Line 10 to Line X+5. Thus, the 
value of X is variable allowing dynamic control of program execution 
at this point. 

P.3.5 GOSUB/RETURN Statements 

These instructions are useful when a computation or operation must be 
performed at more than one place in a program. Rather than write the 
routine at each place where needed, a GOSUB instructipn is used tp 
"call" the computation or operation (refffrr^d to as a SUBROUTINE). 
After the subroutine has been executed, a RETURN instruction (the last 
in«;truction of the subroijtlne) causes the program to resume execution 
at the next line number following the orialnal GOSUB Instruction. As 
an example* 
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lyiAIN PROGRAM 



\7i LFT X=5 
2fPi B«X+R 

SUBRQUTINF 

• • 

50 GOSUB 2m- ^200 Y«X-»-B/A 

60 X=A/B^» . . 

• • ^**'**'««»,,^^^ • • 

: : >><^ : 

100 GOSUB 200^'" ^r^250 RFTURN 
110 X«X*B4 

On the first GOSEfB call, the order of execution follows the solid 
arrows. At the second GOSUB call (Line 100), the order of execution 
follows the dashed arrows. 

NOTFf GOSUBs may be nested ud to 8 levels deep (including Interruot 
levels) . 

2.3.6 IF/THFN Statement 

This instruction allows for oroqram control to be modified by a logical 
test condition. The test condition follows the IF clause of the state- 
Ttent. When the test condition is true (non-zero), the THFN portion of 
the statement will be executed. When the test condition is false 
(zero), the THFN oortion is ignored and execution continues at the next 
numbered line of the oroqram. 

m IF X>J THFN GO TO 14PI 

NSC Tiny BASIC allows the omission of the word THEN from an IF/THFN 
Statement. This omission, also allowed on some larger BASICS, enhances 
the clarity of the nroqram. The above statements then become* 

50 IF X>J GO TO 140 

2.3.7 DO/UNTIL Statements 

This instruction is not available in standard BASICS. This statement is 
used to oroqram loops, keeoinq 00 TO statements to a minimum. The 
overall effect is to greatly imorove readability and clarity of NSC 
Tiny BASIC programs. The following example shows the us^ of DO/UNTIL 
Statements to print numbers less than I00« 
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10 PRINT 1 t PRINT 

20' PRINT 2 

30 I«3 

40 DO 

50 J=l/2 

60 N=l 

70 DO 

80 N=N+2 

90 UNTIL (MOD(I,N) 
100 IF N>J PRINT I 
110 1 = 1+2 
120 UNTIL (I>100) 



0 OR (N>J)) 

I REM NO DIVISIBLF FACTOR 



t REM 'ends THE SEARCH 



tREM J IS THE LIMIT 

IREM N IS THE FACTOR 

tREM SEEKS A DIVISIBLE FACTOR OF I 



tREM I IS NUMBER TESTED 



Ry enclosfng a zero or more statements between the DO and the It^TIL 
<condition> !*^aternent (where the <condltion> Is. any arbi trary ^ex- 
^jWssion), the statements between will be reoeated^as a arouo^Qntil 
■t%i^ <condi'tTon> evaluates to a non-zero nimber t^*%rae condition), DO/ 
UNTIL I60DS can be nested, and NSC Tiny BASIC will reoort an error if 
the nesting level beco"ies too deeo, (fnore than eiaht levels), 

2.3.8 FOR/NEXT Statements 

These statements are identical to the FOR/NEXT Statements in standard 
BASICS. The STEP in the FOR statement is optional. If it is not in- 
cluded, a STEP value of +1 is assumed. The value of the STEP may be 
either positive or neoative. Starting and ending values of the FOR/ 
NEXT looD are included in the FOR statement. The looo is reoeated 
when the NEXT statement has been executed orovided the unoer limit of 
the FOR statement has not been reached. When the UDoer limit is 
reached, the nrogram will exist from the FOR/NEXT loop. NSC Tiny 
BASIC causes an error break if the variable in the NEXT statement is 
not the sape variable as that used in the FOR statement. 

FOR/NFXT loons 'nay be nested, and NSC Tiny BASIC will renort an error 
if the nesting level becomes too deeoi a deoth of four levels of FOR 
loop nestino is aHowpd. A FOR looo will be executed at least once, 
even if the initial value of the control variable already exceeds its 
hounds before startina. The following nrogram would do nothing but 
orint the odd integers less than 100. 



2.3.9 LINK Statement 

Control may be transferred from an NSC Tiny BASIC program to an INS 
R073 machine language routine by means of a LINK Statement. This 
allows the user to maire use of routines which may be more efficientlv 
oerformed in machine language. A statement of the form LINK <address> 
will causp control to be transferred to the INSR073 machine lanauaae 
routine starting at <address>. Control is transferred bv execution of 
a JSR instruction. The nointers may be modified by the routine. P3'5 
value is unpredictable, and P2 points at the start of A-Z variable 
storage. Variables are stored in alphabetically ascendina order, two 
bvtes each, low order byte first then hioh-order byte. 



\m N=100 tREM UPPER LIMIT 

20 FOR 1=1 TO N STEP 2 tREM START AT I WITH STEP OF 2 

30 P-^INT I tREM PRINT A NUMBER 

40 NEXT I tREM REPEAT (at Line 20) 
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Examol et 



>lf^ LINK ^\Hm NSC Tiny BASIC transfers to . 

>20 IF A=0 THEN PR «SENSt A IS LOW« address #1800 to read 

>30 IF A«1 THEN PR "SENSE A IS HIGH" sensor. 

>99 STOP Program transfers back to 

>RUN NSC Tiny BASIC 

SENSE A IS HIGH 

STOP AT 99 
>RUN 

SENSE A IS LOW 
STOP AT 99 
I 

2 00«0 
. 3 1800 06 

4 1801 0410 

5 1803 6C02 

6 1805 C40I 

7 1807 CA00 

8 1809 5C 

9 0000 

?.3.10 ON Statement 

This statement is used for orocessino interrupts. The format of the 
statement ist 

ON interruDt-#l , line-number 

When numbered interruot ( interrunt-#) occurs, NSC Tiny BASIC executes 
a OOSUR statement beqinninq at line number ine-n umber". If "line- 
number" is zero, the corresoondinq interrupt is disabled at the soft- 
ware levpl. Interrupt numbers may be 1 or 2. Use of the ON statement 
disables console interruots (BREAK function). Interruots must also be 
enabled at the hardware level by settinq the Interrupt Enable bit in 
the status register (for examnle, usinq STAT=1). 

2.3. 1 1 STOP Statement 

Althouqh the last line of a nroqram does not need to be a STOP state- 
ment, it is a useful debuqqinq tool for proqrams. The S^FOP statement 
may be inserted as breakpoints in an NSC Tiny BASIC oroqram. 

When NSC Tiny BASIC encounters a STOP statement, it prints a stop 
messaqe and the current line number. It then returns to the edit mode. 
Thus, the proqrammer can see whether his program reached the desired 
DOint. Any number of STOP statements may apnear in the nroqram. By 
removing the STOP statements, one by one, a program can be tested by 
oarts until the debunqino process is completed. 



.TITLE SENSE 

. MPi I 800 " I «f rADEC I M AL 

LD A,S 
AND A, =16 
BZ LOW 
LD A,=l 

ST A,0,P2 tSTORES ACCUMULATOR INTO LOCATION 

RET OF VARIABLE A 

.END 
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Fxecutlon of a stonned riroqra^ may be continued after the STOP by a 
CONT (co/itinue) command. 

?^3.\? DHL AY Statement 

This statement delays NSC Tiny BASIC for "exnH' time units (nominally 
milliseconds, I-J040). Delay 0 gives the maximum delay of 1040 milli- 
seconds. The format ist 

DFLAY exnr 

Examolet 

>I0 DELAY 100 Delay 100 milliseconds. 

2.3.13 CLEAR Statement 

This statement Initializes all variables to^Hl^di sables interruos, en- 
ables BREAK caoabilitv from the console, and resets all stacks (GOSUR, 
FOR -NEXT, DO-UNTIL). 

Fxamolei 

>t0 ON ?,250 Break is disabled. Interrupt 2 is enabled. 



>300 CLEAR Break is re-enabled, Interruot 2 is disabled. 

2.4 Indirect Operator 

The Indirect Operator is an NSC Tiny BASIC exclusive, at least in the 
realm of BASIC. It accomplishes the functions of PffK and POKE with a 
less cumbersome svntav. The Indirect Operator is a way to access abso- 
lute memory location althouoh its annl ica tion«> are not limited to that. 
Its utility is especially significant for microprocessors, such as the 
INSR073, where Interfacing is commonlv performed through memory ad- 
dressing. 

An "at" sign (0) which preceeds a constant, a variable or an expression 
In Parentheses causes that constant, variable or expression to be used 
as an unsigned 16-bit address at which the value is to be obtained or 
<?tored. Thus, if an input device has an address of #6800 (hexadecimal), 
the statement* 

LET X=©#6R00 

would input from that device and assign the value of the input to the 
variable X. If the address of an outout device was #6801, the state- 
ment* 

«#680I=Y 

would output the least significant byte of Y to the device. 
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The indirect ooerator accessinq "lemory locations only one byte at a 
time, An assiqnment such as l»A=;>48 chances the memory location oolnt- 
ed to by A to ?4R (1111 \Pim) binary, since 248 can be eyDre<?«5ed as on** 
byte. However, an assiqnment such as ^A-?5H chanqes the memory location 
nointed to by A to 2 because the value of 25R cannot be exoressed by a 
sinqle byte, as shown below* 



25S = I mm 0010 



extra bit ' L-one byte (stored into location to which A would ooint) 



Only the least siqniflcant byte of 258 (which is 2) is stored at that 
location. The extra bit would be lost forever. 

Any* olace that^ a variable, such as B, would be legal, the construct 
'^m** would alnso be leqal. The meanlnq of is» -the byte located at 
the memory location whose address is the value of B. Other examnlest 

40 LPT R«6000 Assiqns 6000 to B. 

50 LFT e B=100 Stores decimal 100 in memory location 6000 

60 LET C=0B Sets C^to 100. 

.70 PRINT <a6000 Prints 100. 

80 LET D=e»( A+10*D) Sets D=the value stored in memory location 

( A^10*D) . 

Parentheses are required when annlyinq © to an exoression, 
2.5 Multinle Statements On A Line 

More tnan one statement can be placed on one orooram line. This is 
accomplished by placing a colon between the statements. Readability 
of the program can be improved, and memory space can he saved by using 
this technique. As an example of the use of multiple statements* 

200 PRINT "MY GUFSS IS«,Y«PRINT «INPUT A POSITIVF NUHllBRR«|i 
INPUT X«IF X <=0 GO TO 200 



If X is neqative or zero, the user will be instructed to enter a 
positive number, and the orooram returns to Line 200 for a new quess. 
If the user had entered a oositive number correctly, the oroqram 
would have proceeded to the next numbered line after Line 200. 



Care in use of multiple stateirents per line must be exercised. The 
above example shows that if the condition of the IF STATEMENT is false, 
control is passed to the next oroqram line. Anytnino else on the line 
containinq multiple statements will be ionored. 
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2,6 String Hanrtllno 

String inout may be accomol ished by executinq a statement of the form 
INPUT $ F, where F Is a Factor syntactically (see Grammar). When the 
oroqram reaches this statement durinq orooram execution, NSC Tiny BASIC 
nromots the user with a Question ruark (?). All line edltinq characters 
may be used (back soace, line delete, etc.). If a control-U is tyoed 
to delete an entered line, NSC Tiny BASIC will continue to oromot for a 
line until a line is terminated by a carriaqe return. The line Is 
stored in consecutive locations startinq at the address oointed to by 
F, un to and includlno the c^rrif^Q% return. Fxamole* 

P0 INPUT $ A may also be written 20 INPUT $A 

and inouts a strinq to successive memory locations startinq 
at A. 

2.6.1 Sjtrfnq Outout 

An item in a PRINT statement can include a strinq variable in the form 
of $8, where B is a factor. When the print statement is encountered 
durino nroqram execution, the strinq will be printed beqinnlnq at the 
address B ud to, but not includlnq, a carriaqe return, A keyboard 
interruot' wi 1 1 also terminate the orintino of the strinq if detected 
before the carriaqe return. Fxamolet 

50 PRINT $R orints the strinq beoinnina at the location 

oointed to by "B". 

?.6.2 Strinq Assiqnment 

Strinq variables can be assiqned to characters in quotes Just as other 
variables are assiqned numerical values. A statement of the form $C= 
"THIS STRING IS A STRING" (when encountered durinq nroqram execution) 
would cause the characters in quotes to be stored in memory startinq at 
the address indicated by C uo to and includlnq the c^irriaoe return. 
Fxamol e « 

70 $D=^»THIS IS A STRING WITH NO INPUT STATEMENT. « 

A "T" is stored at location "D" , and H at location "D+l" etc. 



?,6.3 String Move 

Strinqs can be moved from one memory block to another memory block using 
this feature^ A statement of the form $A=$B (where A and B are Factors) 
will transfer the characters in memory beqinnlnq with the ari6r9.^<=i B to 
the memory beqinnlnq with address A. The last character, normally a 
carriaqe return, is also cooled. Also, a statement such as $(A+I)=$A 
would he disasterou*; since it causes the entire contents of the RAM to 
be filled with the first character of $A. 
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2,6.4 S'trino Examnles 



10 A=TOP 

20 C=TOP+I00 
30 D=TOP+200 
40 INPUT $A 
50 PRINT $A 
60 LET $C= "IS 
70 $D=$C 
80 PRINT $D 



iRRM A POINTS TO EMPTY RAM ABOVE TOP OF 
PROGRAM 

iREM C POINTS TO RAM 100 BYTES ABOVE A 
tREM D POINTS TO RAM 100 BYTES ABOVE C 
tPEM STORES CHARACTERS WHERE A POINTS 



THE STRING INPUT AT LINE J0« 
JREM STORES CHARACTERS 



WHERE D POINTS 



2,7 Commands 

2.7.1 NEW expr 

This comma hci es 
value of "exor^' 
seauence which 
stacks, disable 
and oerforms th 
the value of "e 
which beqins at 
rne-nory (includl 
altered by this 

Examol e « 



tablishes a new start-of-nroqram address equ^f'to the 

NSC Tiny BASIC then executes its initialization 
clears all variables, resets all hardware/ software 
s interrupts, enables BREAK caoability from the console, 
e nondestructive RAM search described in nart one. If 
xor" points to a ROM address, the NSC Tiny BASIC oroqra'n 

this address will be automatically executed. Proaram 
no the end-of-nroaram nointer used by the editor) is not 

c o mma nd . 



>NEW 1000 

NEW used without an argument sets the end-of-oroqram oointer equal to 
the start-of-proqram pointer so that a new program may be entered. If 
a orogram already exists at the start-of -program address, it will be 
lost. 



Example « 



>NEW 1000 
NEW 



Sets oroqram pointer to 1000 

Sets end-of -orogram oointer to 1000 



2.7.2 RUN 

Runs the current orogram. 
Examol et 

>RUN Execution begins at lowest line number 
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7.1.3 CONT 

Continues execution of the current oroaram from the point where 
execution was suspended (via a STOP, console interruot, or reset). 
NSC Tiny BASIC orogram that is executing can be interrupted by 
ressing the BRRAK or RESRT keys on the keyboard. Execution can 
be resumed by entering the CONT command. 

Examolet 

>RUN 

THIS IS THE STRING 
THIS IS THE STRING 
THIS IS THE STRING 
THIS IS THE STRING 
"C 

>CONT 
THIS IS THE STRING 
THIS IS THE STRING 
And so on . . . 

2.7.4 LIST (exor) 

Lists the current orooram (ootionally starting at the line number 
specified by (exor)). 

Exafnol e i 

>LIST 10 

\9i INPUT $A 

20 PRINT $A 

30 LET $C='"IS THE STRING INPUT AT LINE !0« 

40 $D=$C 

50 PRIi^T SD 



INPUT AT LINE 10 

INPUT AT LINE 10 

INTOT AT LINE 10 

INPUT AT LINE 10 Press BREAK or RESET. 



INPUT AT LINE 10 
INPUT AT LINE 10 
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Section 3 



CHAPTER 1 



I . I Introduction 

Thft desian of an I NS8073-ba s«d system is quite straiqhtforward. Figures 
1-1 throuah 1-3 illustrate this ooint. Fiaure f-I shows a minimum size 
RAM-based system! this is the kind of system used in enaineerinq labs 
for software development. For stand— alone proqram operation a system 
like the one shown in Fiqure 1-2 can be used, orovided 256 bytes of RAM 
are available for variable storaqe. Fiqure 1-3 Is an' eynansion of this 
system to allow a 32-blt oarallel I/O interface. 



OUT 

TTY IN 



HDR 
RELAY 



OUT 


► 


BUFFER 








R5-232 ' 
TERMINAL 








IN 




BUFFER 





BU FFER 



BUFFER 



BU FFER 



ADDRESS 
SA/INTA 



DATA 

NROS 
NWDS 



INS8073 



Fl 



Fl 



SB/INTB 
F3 



ADDRFSS 

DATA 
READ 
WRITE 



EXTERNAL 

PROGRAM RAM 

(Includes the 
256 bytes used 
by NSC Tiny BASIC) 



-USER I/O 



NOTE* It is not necessary to have a TTY and an RS-232 terminal. 
Either one may be omitted. 



Fiaure 1-1 • Minimum RAM-Based System 
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INS8073 



PROGRAI^ 
ROM/EPROM 



USER I/O 




Figure 1-2. Minimum ROM/EPROM-Based System 
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INS8073 



m?H6 




Figure 1-3. I/O Exoansion of the Minimum ROM-Based Systefn 
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1.2 An NSC Tiny BASIC ExaTinle System, Functional Snecif ication 

It is obvious, from th*^ oreceding examoles, that bv usina only a small 
number of ICs, an extremely powerful and flexible system can be easilv 
developed. To illustrate this noint, we will design a system to 
satisfy all of the following r eouirements t 

I, To allow the user to enter, debug and execute HAM-based NSC 
Tiny BASIC programs un to \ 30i lines in length. 

To interface to a terminal or TTY for orogr^im entry and 
debuo. Multiple data rates (WPi^ 3m, and ASm Baud) 

should be sunnorted. 

3. To allow the user to transfer RAM resident orograms into 

EPROM. 

4, To allow an RPROM orogram to be run in a real-time control 
aoolications where a terminal is not oresent. 

To have amole I/O caoability flexible enough to interface to 
most user systems. 

6. To provide the user with "scratchpad" RAM for use when assem- 
bly language subroutines are invoked via the ^'LINK" statement 

7. To suooort at least two interruots. 

8. To fit the entire system on a single 5" x 7" PC card. 

9. To satisfy all design reguirements using a minimum ninber of 
IC's. Fxoansion of the minimum system should be accomplished 
by simple addition of "optional" RAM, RPROM and I/O devices 
on the PC card. 

Although meeting all of the above reguirements may at first seem diffi- 
cult, these objectives are easily attainable, as the following para- 
graphs will show. 
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1.3 Hardware Desian of a Small INSR{^73-Based System 



K system that meets all of the above design requirements is shown in 
Fioure 1-4, The tyne, designation and function of each IC shown is as 
f ollowst 



IC TYPP 
INS8073 
m? 1 1 4 



74LS36R 



74LS02 



IC DESIGNATOR 



IJ4A 
U4B 
U4C 
U4D 
U4F, U4F 
U5A 

U5B 

U5C 
U5D 



RJNCTION 

NSC Tiny BASIC orocessor. 

U2 and U3 provide IK bytes of 
static RAM. (Each MM^IUrmo- 
vides IKx4 bits.) 

Inverter for TTY inout inter- 
face. 

Inverter for TTY reader relay 
interface. 

Inverter for RAM address manoinq 
loqic • 

Inverter for power-on reset of 
INS8 255A. 

TRI-STATE inverters for selection 
of multiple Baud rates. 

Two inout NOR qate. Used for 
address manoino of the EPROM 
oroq rammer. 

Two inout NOR qate. Used to 
select interrupt source(s) to 
INSB(^73. 

Two input NOR qate. Used in Baud 
rate selection loqic. 

Two input NOR qate. Used for 
address mapoinq of the INS8I54. 
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LW747 U6A The LM747 is a dual OP amc • U6A 

buffers the nosl tl ve/neqat. i ve 
voltaoe levels received from the 
RS-232 comnatible innut to the 
TTL levels renulred by the 
INS8073. 

U6B U6B buffers the TTL levels gen- 

erated by the INSa073 to the do«?- 
Iti ve/neqati ve voltaqe levels re- 
quired to drive the RS-23? com- 
patible outnut. 

74LSI23 U7A The 74LS.123 is a dual One-shot. 

U7A oroides adequate address/ 
data setuD time to oraqram the 
m?7\6 FPROW. 

U7B U7B orovldes the bPi msec oro- 

qrammlno nulse required to write 
data into the MM27I6 EPROm. 

74LS(^(?i URA,B,C U8 is a quad NaND gate. U8A, UBB 

and UBC are used in the Baud rate 
selection loqic. 

U8D Used in the RAM address maoolnq 

loqic. 

74LS139 U9 Dual 2 line to 4 line decoder 

with active low outouts. Pro- 
vides address maoolnq for RAM, 
fiPROM and I/O ICs. 

MM2H4 U10-Uf5 Provide an additional 3K bytes 

of ootional RAM orocram memory. 

MM27I6 UI6,U17 Provide un to 4K bytes of ootion- 

al ^PROM proqram memory. (Each 
MM2716 contains 2K bytes.) 

INSR255A UIB Ootional Proqrammable Perloheral 

Interface chio. Provides 24 I/O 
lines that may be used to inter- 
face with the user's system. I/O 
oins may be oroqrammed as inouts, 
outnuts or bidirectional, in- 
cluding the required handshake 
signals. (Refer to the INS8255A 
Data Sheet for additional infor- 
mation. ) 
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INS8I54 U19 Ontional \?S byte RAM-I/0 chio. 

Provides 1 ?8 byte*; of scratch- 
oad RAM for use in assembly 
lanquaqe suhrout in^s . Mso nro- 
vides t6 I/O lines that may be 
Individually nroarammed as in- 
Dut or outout, includino strobe 
mode with handshake. (Refer to 
INS8l*>4 Data Sheet for addition- 
al information.) 

Note from the above tabulation that the minimum system consists of onlv 
nine IC-'s Ul - U9. Together they orovide IK bytes of RAM program mem- 
ory, an R5-232/TTY interface, an MM2716 FPROM orogrammer, automatic 
%lfeijd rate selection and comolete decoding for th^^uily exoanded 
system. Thf, fully aynf^nderi c^ycitem consists of 19 iC's. 




Figure 1-5 Photo of NSC Tiny BASIC Card 
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1,4 Addressing Reauirements/Caoabi lltles of Each System Comoonent 

Each of the system cofnoonents shown in Fiaure 1-4 must be assioned 
to address locations in Temory, The built-in address decoding cao- 
ability of each system comoonent can be summari7ed as follows^ 

4K Bytes of RAM 

Each of the four oairs of MMPII4 chips fully decodes '10 bits and 
can be selected via one active low select oer oair. 

4K Bytes of EPROM 

Each of the two H^27\6 EPRPMSs fully decodes 11 bijts aWd provides 
two active low select line% oer device for reading of data. 

INS8255 

The INS8P55 contains three I/O ports and one control word register, 
all of which are decoded on chip via two address input lines. The 
device is enabled via a single active low select line. 

INS8I54 

The INS8154 contains 1 PB bytes of RAM, two I/O ports and two data 
directipn registers, all of which are decoded on chip via eight 
address lines. The device is enabled via one active high select 
line and one active low select line. 

Baud Rate Selection Loaic 

The INS8C573 selects the Baud rate by reading the contents of memory 
location X^FD00. To program the Baud rate, this location must be 
decoded via external logic, and the aooroorlate logic levels supplied 
on data lines 1, P and 7. (Refer to RS-P3?/Current Loop Interface 
section for additional details.) 

FPROM Programmer 

To proaram an MMP716 EPROM, address/data are supplied by the INS8C^73 
to the P716 socket UI6 in Figure 1.4. When VPP = +P5V and address/ 
data are valid, a single byte may be v/ri tten by providing a 5'^ msec 
programming oulse to pin 18 while the chip is deselected via a logic 
1 on nin 20. A byte which has been written may be subsegijentl y read 
by simply supplying the correct address and providing a logic 0 on 
nin ?(^. (Refer to MM?7|6 Data Sheet for additional details.) 
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1.5 Memory MaoDinq Constraints For All System Comoonents 

The coTiDonents described above can be maoDed into memory in a variety 
of ways. The system constraints Imnosed uoon this manoinq are the 
following: 

1. The decodina hardware will be imolemented using a minimum number 
of ICs. This implies that the system comoonents will be only 
nartially decoded, resulting in multiole images of each com- 
Donent in memory. 

?. Althouon multiole memory images of each system comoonent may be 
nresent, the manning hardware will be designed such that it is 
imoossible to enable more than one system comoonent at a time. 
This restrictibn eliminates the oossibility of causing data bus 
.conflict as the result of ^ a programm ing error, .fe^f^lfta bus /:on- 
1 flict could cause transmi ssion/receiot of invalid data and chio 
damage. ) 

3. NSC Tiny BASIC orogram !MM will be decoded as a contiauous block: 
so that the INSSPf73 can successfully identify the beginning and 
the end of the nroqram RAM that is actually present. 

4. The RAM and the I/O oorts of the INS8I54 will be located in the 
addres*? ranoe X-TFC^ - Y^FFBF. This allows INSR:?I73 assembly 
language sub routines to address thp INSRI54 using the DIRFCT 
addressing mode. (Use of DIRFCT addressina eliminates the need 
to dedicate or multiolex a pointer in order to address the 
INS8154. For additional details on DIRECT addressing, refer to 
the INS807P5 Data Sheet.) 

5. When on-card FPROM is oresent, it will be located starting at 
address Y'Rt^^^fi. This allows the system to be used in real-time 
control annl i cations where a terminal is not present. 

All of the above constraints are satisfied by the memory assignment 
shown in Figure 1-5 and Figure 1-6. Figure 1-5 shows how the 64K 
addressing space of the INS8073 is to be nartltioned. Figure 1-6 
shows the address bits (in boldface) that are actually decoded by the 
i.ardware shown in Figure 1-5, resulting in multiple (but not over- 
lapping) rremorv i^^ages of each component. The locations of these mul- 
tiole images are also shown, with address bits Al? - A15 soecifying 
one of 16 possible memory "nages", each of which contain*^ 4K bytes. 



1.6 System Generated Interrupts 

NSC Tiny BASIC supports interruots via the "ON" statement. As shown 
in Figure 1-5, interrupts generated by the INSR154 and/or INS8255 may 
be connected, at the user's discretion, to the SP/INTR oln of the 
INS8073. When this is done the INS8073 SR/INTB pin may be used to 
detect interrupts under control of the user's nrogram. If interrupts 
are disabled, the SR/INTR pin mav be emoloyed as a sense oin that can 
be examined via the NSC Tiny RASIC «STAT" Function or the "ON" State- 
ment. 
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HEX 


ADDRESS 


MEMORY CONTENTS 


mm 


-09 FP 


INS8073 ON-CHIP 






NSC TINY BASIC 






INTERPRETER 




• 
• 
• 


• 
• 




-1 3FF 


RAM 0 ( IK BYTES) 


1400 


-17¥r 


RAM \ (IK BYTES) 


1800 


-IBFF 


RAM 2 ( IK BYTES) 


1C00 


-1 FFF 


RAM 3 ( IK BYTES) 


2000 


-27FF 


MM2716 EPROM 






PROGRAMMER 




• 
• 
• 


• 
• 
• 



HEX ADDRESS 



MEMORY CONTENTS 



B000-R7 FF 


ROM 0 <2K BYTES) 


RB00-RFFF 
• 


ROM 1 (2K BYTES) 
• 


• 
• 


• 


F700-F703 


INS8255A 


• 
• 
• 


• 
• 
• 


ED00 


BAUD RATE SELECT 


• 
• 
• 


• 
• 
• 


EE 00- EE 7E 


INS8154 RAM 
(128 BYTES) 


FF80-FFA4 


INS8154 I/O 
PORTS/CONTPOL 


• 
• 
• 


• 
• 
• 


fr:0-feef 


INS8073 ON-CHIP 
RAM (64 BYTES) 



Fioure 1-6 Partitioninq of the INS8073 64K Addressinq Space 
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ADDRFSS 


BITS 


















1 K 
1 D 


1 A 

1 4 


1 n 

1 J 


\2 


n 


10 


9 


8 


7 


6 


5 


4 


3 


2 


1 


0 




X 


X 


0 


0 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


0 


X 


X 


1 


0 


0 


X 


X 


X 


X, 


X 


X 


X 


X 


X 


X * 


0 


X 


X 


1 


0 


I 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


^■^ 


X 


X 


1 


1 


0 


X 


X * 


X 


X 


X 


X 


X 


X 


;X 


X 


0 


X 


X 


1 


1 


1 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 




X 


' X 


0 


0 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 




X 


X 


0 


1 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 




X 


X 


1 


0 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 




X 


X 


1 


1 


X 


0 


X 


X 


X 


X 


X 


X 


X 


X 


X 




X 


X 


1 


1 


X 


1 


X 


X 


X 


X 


Y 


X 


X 


X 


X 




X 


X 


1 


! 


X 


1 


X 


1 


X 


X 


X 


X 


X 


X 


X 



RPROM PROGRAMMFR 
(X'2 000-X'27rF) 

RAM 0 (X^I000- 
X'lJFF) 

RAM J (X'[400- 

X ' I 7 FF ) nM^mty - 

RAM 2 (X'I800- 
X-'IXFF) 

RAM 3 (X-'1C00- 
X'IFFF) 

ROM 0 (X-^8000- 
X"'87FF) 

ROM I (X^88^0- 
X^8FFF) 

INS8 255A (X'F70/5- 
X'F703) 

RAUn RATR SELECT 
(X'FD00) 

INS8I54 RAM 
(X'FF00~X''FF7F) 

IMS8154 I/O PORTS 
(X' FF80-X' FF A4) 



NOTES* I. "X" refers to an address bit that rnay be zero or one. 

2, Bits that are actually decoded by the hardware shown in 
Figure 1-4 anoear in boldface tyne . 



Table 1-1. Address Bits 
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Decoding only the" indl ca ted address bits results in the following 
multiple memory iuages of each comoonent. This list is organized in 
three columns. The first column shows the comoonent, the second shows 
the cage in memory into which that comoonent is maooed, (cage numbers 
range froti ^ to each nage being 4K bytes)! and the third shows how 
the elements of a shared oage are subdivided. 



COMPONENT 




PAGES 




ADDITIONAL 
CONDITIONS 


EMPROM PROGRAMMER 




4. 


6 




4K RAM 




3. 5, 


7 




4K ROM 


8, 


A, C, 


F 




-INS8255A 






F 


All = 0 


BAUD RATE SELECT 




D, 


F 


A n = U A9 * 0 


INS8I54 


9, 


B, D, 


F 


AH = 1, A9 « 1 



Figure 1-6 Address Bit Decoding for the System 



1,7 RS-232/Current Looo Interface 

The described Baud rate is automatically selected when the INS8073 is 
initialized, or when a "NEW" command is issued. Initialization is 
automatically accomolished at VCC nower-on by Rl and CI in Figure 1-5. 
(Pressing switch SI also causes the INSR073 to be initialized.) The 
Baud rate is UJf^oer selectable as followst 



BAUD 


FI6-F) 7 


E1R-EI9 








RATE 


JUMPER 


JUMPER 


07 


02 


Dl 


1)0 


PRESENT 


PRESENT 


1 


1 


1 


300 


PRESENT 


ABSENT 


1 


1 


0 


1 200 


ABSENT 


PRESENT 


1 


0 


1 


4800 


ABSENT 


ABSENT 


1 


0 


0 



If only the 110 Baud rate is regulred, nulluo resistors on data lines 
Dl, D2 and D7 reoresent the only external hardware reguired to select 
this rate. 

As shown in Figure l.b, the INS8073 Fl flag is double buffered to oro- 
vide an RS-232 comnatlble voltage outnut and a 20ma current outout. 
Positive and negative R5-232 levels are generated by the LM 747 on 
amn. The 20 ma current drive is produced by transistor switch 01 and 
Resistor RI5. 

The INS8073 R2 flag is used to enable/disable the TTY reader relay via 
transitor switch 02 and ctjrrent limiting register R2. These comoonents 
will suDoly 20 ma of current to a 12V (600) relay. 

The INS8073 will accent serial ASCII Innut data in its SA/INTA input. 
As shown in Figure 1.5, the RS-232 inout. signal is selected via a 
Uimner between E5-E6, or the TTY innut signal may be selected via a 
jumper between E6-E7. 



3-16 



CHAPTER 2 



2.1 MM27I6 EPROM Proqramminq Software 

An NSC Tiny BASIC utility program that orograms MM27I6 EPROMs, and one 
that will work with the system shown In Figure 1-4 is shown In Aooendix 
D, A PROM with this orogram must be oluoged into socket UI7 to ooerate 
these utility orograms. The orogrammlna software is called from NSC 
Tiny BASIC by tyningt 

>NFW #8800 

This DTogram decodes and executes the following ten commands! 

COPY 

PROGRAM 

VFRIFY 

FRASF CHFCK 

FI LL 

DUMP 

LOAD 

ASCII LOAD 

WRITE 

RFAD 

Each coirmand is designated by a single command letter followed by 1-3 
address and/or data fields. The user is oromoted for a command inout 
by the message "COM?-", In resnonse to this, a legal command in the 
orooer format must be entered. If an illegal command letter or im- 
nroner format are employed, the user will be promoted to re-enter an- 
other command by the messaget "INPUT ERROR. TRY AGAIN." Addresses 
and data should be entered in hexadecimal, without the preceding 
sign. Address and data fields should be delimited by slashes (/) or 
by commas (,). Snaces are ontional and are ignored. For convenience, 
"default" addresses and/or data are associated with each command. 
These default values a How the user to enter only the command letter, 
followed by a carriage return. When this is done the default values are 
substituted for the address/data that was not entered. The default 
values arf? preset to the most commonly used address/data for each 
command. When the default values are unsuitable, the desired address/ 
data must be entered. 

Tne commands are discussed in detail in the following paragraphs. 
?.? COPY Command 

FORMATf C source-starting/source-ending/destination-starting 

EXAMPLE* C RP«i90/8200/1400 

DEFAULT 

VALUESi C 1100/1100/1100 
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The COPY .command »»C« copies the source to destination, which must be 
RAM. The source is specified by its starting and ending address. The 
destination is specified by its starting address. To insure that the 
source is correctly conied, each byte is read after it is written. If 
a mismatch is detected between source and destination, an error message 
is printed for each incorrect byte. The message format is similar to 
that described for the PROGRAM command. 

In order to prevent accidental destruction of RAM based programs, the 
default values for the COPY command are preset to cony the first byte 
of available program RAM to itself., 

2.3 PROGRAM Command 

FORMATt P source^^$tarting/source-ending/dest ination-starting 

EXAMPLE « PI! 00/ 1 ?00/?(?500 

DEFAULT 

VALUES t P I I00/I8FF/2000 

The PROGRAM command "P" transfers an NSC Tiny BASIC source program to 
the MM?7f^ EPROM (UI6 In Figure 1-4). The source program is specified 
by its starting and ending address. (The ending address of the source 
'^pty be easily obtained by examining the NSC Tiny BASIC TOP variable.) 
The source remains unchanged by the programming operation. Since the 
FPRCM programming hardware is mapped into address 2, the starting 
address of the destination must always begin with hevadecimal »•?". The 
default values for the PROGRAM command fills U16 with the NSC Tiny 
BASIC program located in the first 2K bytes of available program 
memory (X''I100 - X-'ISFF). If a previously programmed EPROM contains a 
sufficient number of unprogrammed bytes, new programs may be added 
without erasing the orogram(s) previously written. 

To insure that NSC Tiny BASIC programs are correctly written into 
EPROM, the PROGRAM command automatically reads each byte after it is 
written. If a mismatch is detected, the following error message will 
be printed for each byte» 

ADDRESS RXXX SB XX IS XX 

The X^s above represent hexadecimal digits. The "SB-" is an abbreviated 
notation for "should be«. Since the UI6 EPROM is mapped into address ? 
for READ operations (refer to Figure 1.5), the first digit of the EPROM 
address will always begin with hexadecimal "8". (The address actually 
presented on the EPROM address lines is given by the three least slg- 
fuficant address digits in the error message.) 
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2.4 VERIFY Command 



PORMATt V ref erence-startinq/ref erence-endlnq/destinatlon- 
5tartlng 

EXAMPLE! V 8000/87 FF/88 00 

DEFAULT 

VALUES! V I I00/I8FF/8000 

Tne VERIFY command *»V'« verifies thje destination aqainst the reference. 
The reference is ?iDecified by its starting and eniino address. The 
destination is specified by its starting address. The reference and 
destination remain unchanged by the verify operation. 

The dsfarult values for the VERIFY command cause the UI6 FPROM to be 
vetipf4ted aqainst the first ?K bytes of available RAM-li#friory (X'n'00 - 
X'lSrp), If a mismatch is detected durinq verification, an error 
message will be printed for each incorrect byte. The message format is 
similar to that described for the PROGRAM command. 

The VERIFY command is useful to check the contents of nrogrammed PROMS 
which may have lost their identification, or may otherwise contain data 
of doubtful accuracy. It does not need to be used after a "COPY^* or a 
"PROGRAM" command because a verification is performed automatically at 
the end of each of those functions. 

?.b ERASE CHECK Command 

FORMAT! E source-starting/source-ending/hexadecimal-value 

EXAMPLE! V \]m/\\Ff/m 

DEFAULT 

VALUES! V 8000/87FF/FF 

The ERASE CHECK command "E« verifies that all bytes contained in the 
source are equal to the two digit hexadeciTial value specified in the 
last field of the command. The source remains unchanqed by the erase 
check operation. 

The "E" command may be used to test whether or not all or part of an 
MM2716 EPROM is erased. The default values for this command are oreset 
to test that the entir** MM27I6 EPROM (U16 in Flqure 1-4) is erased. If 
an incorrect byte is located, an error message is printed. The message 
format is similar to that described for the PROGRAM command. 

The "E" command may also be used to locate a specified byte in a qiven 
address ranoe. In this case all bytes that are different from the 
specified hexadecimal value will be flaqoed as errors. 
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2.6 FILL t:ommand 



FOHMATt F destination-starting/destination-endlnq/hexadec Imal* 
value 

EXAMPLE t F 1200/1400/00 
DEFAULT 

VALUES* F II00/J8FF/FF 

The FILL command *F* writes the two 'digit hexadecimal i4lue specified 
in the last field of the command to tiie destination. The destination 
is specified by its starting and ending address. Since the FILL 
cofrmand reads each byte after it is wri tten< an error message print- 
ed whe^ver the byte read does ^t match the byte writt^rii. The messaqe 
formats is similar to that dj^^bed for J:he PROGRAM comrnand. 

The FILL comTiand •nay be used to fill all or oart of available orogram 
HAM with the erased value (X^FF) for the MM2716 EPROM. This would 
nonnally be done orior to entering a orogram into RAM. The default 
values for the FILL command fill the first 2K bytes of available RAM 
with X'FF. If the FILL command is issued after a orogram has entered, 
care should be taken to correctly specify the proper address range or 
the program may be partially or totally destroyed. 

fhe FILL command may also be used to verify that the orogram RAM is 
functioning. Thi«> can be accomolished by executing this command sev- 
eral times, using the hexadecimal values X'FF and X'00. This procedure 
will verify that a logic and a logic 1 can be written to and read 
from each memory bit. 

2.7 DUMP Command 

FORMAT! D starting/ending 

EXAMPLE* D 8000/80 FF 

DEFAULT 

VALUES* D II00/IBFF 

The DUMP command prints out the contents of the specified address 
ranae in hexadecimal and ASCII format. Nonnrlntable ASCII characters 
^ re desianated by a neriod. The hexadecimal/ASCII equivalents of six- 
teen memory bytes are printed out on each line, in the followinq for- 
">at« 

BF00 30 J! 32 33 34 35 36 37 3H 39 41 42 43 44 45 46 0 123456789* BCOEF 
fin0 CD 7F OA 51 54 59 U 12 2A 2B 2C 54 48 49 53 17 ...QTY..*-^, THIS. 

The four hexadecimal digits at the beginning of each line represent 
the address of the first (left— most) byte. Memory contents are not 
affected by the DUMP comT>and. The default values cause the first 2K 
bvtes of available orogram RAM to be orinted out. 
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?.H LOAD Command 

FORMAT! L disDlacement 

EXAMPLE! L 1000 

DEFAULT 
VALUES! L 0 

The LOAD command "L" loads an assembly language load module (LM) into 
memory from a oaoer tape. (For a ^detailed descrlotion of the LM taoe 
format refer to Anoendlx E.) The starting memory location where the LM 
will be stored is specified on the LM taoe. If a different starting 
location is required, an optional displacement (X'0000 - X'FFFF) may 
he specified in the LOAD command. In this casf^tfte starting ^address 
will be egtial to the address specif fed on the LM tape plus ,tfie dis- 
placement specified in the LOAD^^feand. The "default value' of the dis- 
placement is 0. 

The GET routing built intp the NSC Tiny BASIC interpreter receives 7- 
hit ASCII characters which are then stored In memory as 8-bit bytes. 
These bytes have the most significant bit* B7, set to 0. Since assem- 
bly language LMs reguire receipt/storage of 8-bit bytes, the GET rou- 
tine cannot be used to receive assembly language LMs. This problem 
can be easily overcome by writing an 8-bit GET subroutine in assembly 
lanauage. This subroutine can then be called, when required, via the 
NSC Tiny BASIC "LINK" statement. The subroutine reguires less than 
50 bytes and is shown in Appendix D. The bytes that comprise this 
routine may be entered into Ram, one byte at a time, using the "(»" 
onerator. 



READ COMMAND 

FORMAT: R DISPLACEMENT 

EXAMPLE: R 1000 

DEFAULT VALUES: R 0 

The READ command "R" reads a cassette resident program and stores 
it into memory. The memory locations at which the program will be 
stored are specified on the tape as previously described. If it 
is necessary to read a program into memory at locations other than 
those specified on the tape, a optional displacement (X'OOOO - 
X'FFFF) may be specified in the "R" command. In this case the 
starting address for each DATA record will be equal to the address 
specified on the tape plus the displacement. The default value of 
the displacement is zero. 

If a checksum error is detected when a cassette resident program 
is read into memory, the user \/ill be alerted by the message 
"CHECKSUM ERR". 
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WRITE COMMAND 

FORMAT: W STARTING / ENDING 
ADDRESS / ADDRESS 

EXAMPLE: W 800 0/8 OFF 

DEFAULT VALUES: W 1100/lEFF 

The WRITE conimand "W" writes the contents of the specified memory 
address range onto audipbcasisette tape. The memory address range 
|ro' be writtjf^v^s specified by its sta^Tfting/ endin<^^.addr esses 
NIBL2 soujg^^rp'rograms ^and/or assembly language LM's may .^M^S- 
on cassette. Stored programs begin with approximately 5 si^^Ms 
of 0*s which serve as leader so that the tape speed has time to 
stabilize on playback. The leader also serves as an interprogram 
gap and allows the receiving program to achieve synchronization 
with the clock pulses. 

The tape format consists of one or more DATA records followed by a 
single END record. A DATA record is organized is as follows: 

1) A single character (X'A5) which identifies the start 
of each record. 

2) A byte which specifies the record type. (DATA 
record^X'Ol: END recor d=X • 0 3) . 

3) A byte which identifies the total number of data 
bytes in each record. The number of data bytes in a 
single data record can range from 1 to 256. 

4) The least significant byte of the starting address 
where the data record is to be stored. 

5) The most significant byte of the starting address 
where the data record is to be stored. 

6) 1 to 256 data bytes. 

7) A single byte checksum (in 2's complement form) of 
all bytes contained in the data record except for 
the start of record character, X*A5. 

An END record simply consists of the start of record character 
(X*A5), followed by the record type (X»03) and the 2*s complement 
checksum. 
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CHAPTER 3 



3.1 Loading the FPROM Prograrwning Software Into EPROM 

The EPROM orogramminq software shown in Aooendix G may be transferred 
to oaoer tape so that it can be conveniently used without having to 
retype it each time it is used. This can be accomolished by initially 
typing in the program and then turning on the TTY paper tape punch 
after the LIST command has been entered. This procedure will produce 
a program listing plus a paper tape version of the prpgram. 

Since the EPROM programming software occupies less than 2K bytes, it 
- can be readily programmed into a 21\6 EPROM. The -resulting EPROM 
could then be placed- into socket III 7 in Figure 1-4, so that the EPROAt^«, 
nroora|Bm|ng softwa^re would alwaj^s be availab^:^^ wi thout havdng to loaff 
a p^^^ taoe. If this is done,' the contents^ of one F|®i^?*can still be 
copied to another using socket UI6 only. This can be accomplished by 
Placing the source EPROM into socket Ut6 and then using the COPY com- 
mand to transfer the EPROM contents to the first half of RAM iX^Wm- 
X'lSFF). Following this, the source EPROM may be removed from socket 
U16 anD an erased EPROM put in its nlace. The erased EPROM may then be 
programmed in the normal manner, 

3.2 Loading NSC Tiny BASIC Pronrams Into RAM 

Since the first 2IC bytes of available program RAM it^X^m - X'I8FF) 
are not required by the EPROM programming software, they may be used 
to store a user's NSC Tiny BASIC program. 

Note froTi Appendix G that the NSC Tiny BASIC variables J, D, M and P 
all point to scratchpad RAM. The RAM utilized in prpgram memorv X-'IF00 
X'IFFF. (Only a fraction of the bytes in this range are actually 
used.) If desired, the RAM which is present in the INSB154 may be sub- 
stituted, making the entire program RAM available for storage of user 
programs. 

3.3 Using the EPROM Proaramming Software to Program MM2716 EPROMs 

The EPROM programming software allows NSC Tiny BASIC programs to be 
written into EPROM from the keybord, RAM, paper tape, or from another 
EPROM. 

After the user has committed the EPROM programming software to EPROM 
and Placed the latter into socket UI7, this software maybe executed 
by entering the following command! 

>NEW #8800 

After this is done the "PROGRAM" command, P, may be entered to write 
the user's RAM re«;ident program into a blank EPROM located in socket 
UI6 shown in Figure 1-4. 
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Appendices 



APPENDIX A 

Answers to Exercises 

Page 1-21 

1. -J2767 to 32767, Inclusive. 

2. Turn switch No. 3 on. 

3. 49 

4. ERPOR 4 

5. 2*3 4*5 * 6*7 « 6 2Ci * 42 * 68 

6. 123*(42/!27) = I 23 * 0 « 0 

7. 16960 The true result, 1.000,000, is larqer than 32767. 

8. 22/7*1000 « 3*1000 = 3000 

9. 1000*22/7 = 22000/7 « 3142 
Paqe 1-25 

1. J2 2 35 I 

2. 47 9 5 2 

3. 26 45 

4. 37 73 
Page 1-26 

5. 100 3218 
Page 1-33 

1 . Simoly change Line 60 to readJ 60 GO TO 30 
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Haqe 1-38 
t (a). 

10 PRINT "PROGPAM TO COMPUTE A*X-i-B" 

15 PRINT 

20 PRINT 

30 PRINT "A«-«»t 

40 INPUT A 

50 PRINT "B*"! 

60 INPUT B 

70 PRINT 

80 PRINT "X=«» 

90 INPUT X 

f00 PRINT "A*X-»-B ="l 
110 PRINT A-i-X+B, 
^ 1 20 GO TO 70 

I (b). 

10 PRINT ^PROGRAM TO COMPUTE A*X-»-B'»» 
20 PRINT ""tPRINT ""f PRINT "A=" It INPUT A 
30 PRINT "B=^'I«INPUT B 

40 PRINT ""t PRINT "X="|tINPUT X 

50 PRINT "A^X+R =«MPRINT A*X+B»GO TO 40 

Line 50 can also be written as followsJ 

50 PRINT «A*X-»-B A*X+BtGO TO 40 

The comma seoarates the string "A*X+B" 
and the expression A*X-»-B. 

Paae 4-40 



Number (Decimal) Stored As A Byte (Binary) 

3 0000 00 n (2+1 ) 

6 0000 0110 (4+2) 

7 0000 0111 (4"i.? + l ) 

29 0001 1101 (16+8+4+1 ) 



The larqest number that can be represented in a single byte 
is the "all ones" state* 

.1111 nil 

(128+64+32 + 16+8+4+2 + 1 = 255 ) 
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Page 1-48 



Paae 1- 



STATEMFNT 


N 


U 


V 


W X 


I INPUT N 


6844 








120 X = MOD (NJ6) 


6844 






1 2 


1 30 N = N/ 1 6 


427 








140 W = MOD (NJ6) 


427 






11 1 2 


150 N = N/16 


26 






11 12 


J60 V = MOD <NJ6) 


26 






11 12 


170 U = N/16 


26 


1 


10 


11 12 


Therefore, NSC Tiny 


BASIC orints 


f 10 


It 12 


In hexadecimal the jHimber is 


#1ARC 




-51 










\m RPM AIR PRESSURE 


MONITOR 


AND 


ALARM 




110 PRINT " "tPRINT 


«WHAT IS 


AIR 


PRESSURE" 


1 t INPUT P 



120 IF P<I3 THEN PRINT "WARNING! AIR PRESSURE TOO HIGH" 
130 IF P>15 THEN PRINT "WARNING! AIR PRESSURE TOO LOW^« 
1 40 GO TO 110 

Page 1-61 

70 IF GoX THEN GO TO 30tREM NOT A CORRECT GUESS, GET NEXT 

GUESS 

This reolaces both Line 70 and Line 80 in the orooram. 

The followina i<? an even shorter way to write the orogram. 
Try it. 

10 REM GUESS THE NUMBER GAME 

20 X=RND (l,100)tREM X IS THE SECRET NUM8FR FROM I TO 100 
30 PRINT ""tPRINT "WHAT IS YOUR GUESS"? 
40 INPUT GtREM G WILL BE THE GUESS 

50 IF G<X THEN PRINT "YOUR GUESS IS TOO SMALL"tGO TO 30 
60 IF G>X THEN PRINT "YOUR GUESS IS TOO BIG"»GO TO 30 
70 PRINT "YOU WIN. LET-'S PLAY AGAIN. "tGO TO 20 
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Paqe 1-66 

1. The results of the RUN will be the same as those shown on oaqe 1-67. 

2. No. Try it. See below. 

>RUN 

I I SQUARED 

1 1 

2 4 

3 9 



16 256 



3. 181 
Haoe 1-66 

1. The oroqram will run the same as before. 

2. The program will now print values and squares for numbers 
from 1 to 16. 

3. The oroqram will not work. Hvery line will be I 1. Further- 
more, the oroqram will not stoo by itself. You will have to 
press BRRAK. 

4. The results will be the same as for the oroqram on paqe 1-69. 
f^aqo 1-72 



>RUN 


2. 


>RUN 


1 1 




1 1 


2 3 




2 2 


3 6 




3 6 


4 10 




4 24 


5 15 




5 12C^ 


15 


4. 


120 


7 28 


6. 


7 5040 



8 -25216 Correct answer > 32767 
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Pag^ 1-73 



7. >I0 PRINT ""tPRINT "N="ttINPUT N 

20 S=0 

30 FOR K= I TO N 
40 S=S+K*K 
50 NEXT K 

60 PRINT "SUMSQUARFD =:^»|tPRINT S 

Line 60 can also be written as follows* 

60 PRINT »'SUMSQUARFD »",S 

Note the comma 

Paqe 1-94 

1010 REM STRING COMPARISON SUBROUTINE 

10?0 REM SET-UP STRING ELEMENT POINTERS, C AND D 

1030 C=AtD=B 

1040 REM COMPARE PRESENT C & D LOCATIONS. IF UNEQUAL, ERROR 

RETURN 

1050 IFPCo^D PRINT "THE STRINGS ARE UNEQUAL" « RETURN 
1(?»60 REM IS THIS THE LAST CHARACTER IN THF STRING (CR)? 
1070 IF^'C=#0D PRINT J'THE STRINGS ARE FOUAL« t RETURN 
10R0 REM NONE OF THE ABOVE. CHECK NEXT LOCATION. 
|C?)90 C=C-H tD=D+l too TO 1050 

Paqe 1-1^12 

\f?i A=*EFFF 

20 ^A=lfREM TURN LIGHT OFF 
30 B=0 
40 DO 

50 IF eA=l THEN GO TO 20«SWITCH IS OFF 
60 B=R+I 
70 DELAY 10 

80 UNTIL B=200tREM SWITCH MUSE BE CLOSED 2 SEC 
9f?i -9A=0tGO TO 30tREM TURN LIGHT ON 
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Flowchart 



^ START ^ 

TURN LIGHT 
OFF 



ON 



INCREMENT 
DHLAY 




TURN LIGHT 
ON 



PRESET 
DELAY 
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APPENDIX B 



Error Code Summary 



Error Number Exolanation 



1 Out of memory 

2 Statement used imorooerly 

3 Unexoected character (after leqal 

states ent ) 

4 Syntax error 

5 Value (format) error 

6 Ending quote missing from string 

7 GO target line does not exist 

8 RETURN without previous GOSUB 

9 Expression, FOR-NEXT, DO-UNTIL 

or GOSUB nested too deeoly 

t(7l NEXT without orevious matching FOR 

11 UNTIL without orevious DO 

12 Division by zero 
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APPENDIX C 

ASCII Codes 

The following table contains the 7-bit hexadecimal code for each 
character in the ASCII character set. 

ASCII Character Set in Hexadecimal Representation 



7-bit 7-bit 
Hexa- Char- Hexa- Char- 
decimal acter decimal acter 
Number Number 



7-bit 7-bit 
Hexa- Char- Hexa- Char- 
decimal acter decimal acter 
Number Number 



m 


NUL 


20 


SP 


01 


SOH 


21 


1 


02 


STX 


22 




03 


ETX 


23 


# 


04 


EOT 


24 


$ 


05 


ENQ 


25 


% 


06 


ACK 


26 


& 


07 


BEL 


27 




08 


BS 


28 


( 


09 


HT 


29 


) 


0A 


LF 


2A 




0B 


VT 


28 


+ 


0C 


FF 


2C 




0D 


CR 


2D 




0E 


SO 


2E 


• 


0F 


SI 


2F 


/ 


10 


OLE 


30 


0 


1 1 


DC1 


31 


1 


12 


DC2 


32 


2 


13 


DC3 


33 


3 


14 


DC4 


34 


4 


15 


NAK 


35 


5 


16 


SYN 


36 


6 


17 


ETB 


37 


7 


18 


CAN 


38 


8 


19 


EM 


39 


9 


lA 


SUB 


3A 


t 


IB 


ESC 


3B 


1 


1C 


FS 


3C 


< 


ID 


GS 


3D 




IE 


RS 


3E 


> 


IF 


US 


3F 


? 



40 




60 




41 


A 


61 


a 


42 


B 


62 


b 


43 


C 


63 


c 


44 


D 


64 


d 


45 


E 


65 


e 


46 


F 


66 


f 


47 


G 


67 


q 


48 


H 


68 


h 


49 


I 


69 


i 


4A 


J 


6A 


.1 


4B 


K 


68 


k 


4C 


L 


6C 


1 


4D 


M 


6D 


m 


4E 


N 


6E 


n 


4F 


0 


6F 


o 


50 


P 


70 


D 


51 


Q 


71 


q 


52 


R 


72 


r 


53 


S 


73 


s 


54 


T 


74 


t 


55 


U 


75 


u 


56 


V 


76 


V 


57 


W 


77 


w 


58 


X 


78 


X 


59 


Y 


79 


y 


5A 


Z 


7A 


z 


5B 


C 


7B 




5C 


\ 


7C 




5D 


] 


7D 


ALT 


5E 




7E 


ESC 


5F 




7F 


DEL, 
RUB 
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Def Irvitlons of Non-orinting Characters 



Character 


Definition 


mt 


Null 


SOH 


Start of Heading <also start of message) 


STX 


Start of Text (also EOA-end of address) 


ETX 


End of Text (also EOM-end of message) 


FOT 


End of Transmission (aalso FHD) 


ENQ 


Enquiry (also ENORY, WRU) 


hCK 


AclSrnowledae (also RU) 


Bf.L 


Bell 


BS 


Backspace 


HT 


Horizontal Tab 


LF 


tine Feed 


VT 


Vertical Tab (VTAB) 


FF 


Form Fc^ed 


CR 


Carriage Return 


SO 


Shift Out 


SI 


Shift In 


DLF 


Data Link Escaoe 


DCI 


Device Control 1 


DC? 


Device Control 2 


DC 3 


Device Control 3 


DC4 


Device Control 4 


N^K 


Negative Acknowledge 


SYN 


Synchronous Idle 


FTB 


End of Transmission Block 


CAN 


Cancel (CANCL) 


EM 


End of Medium 


SUB 


Substi tute 


ESC 


Escaoe 


FS 


File Senarator 


GS 


Group Seoarator 


RS 


Record Seoarator 


US 


Unit Separator 


SP 


Space 


ALT 


Alt Mode 


ESC 


Escaoe 


DEL 




RUB 


Delete or Rubout 
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APPENDIX D 



NSC Tiny BASIC Languaqe Summary 
STATEMENTS (exceot for INPUT, ^ay be used as commands) 



NEN exor 



NEW 



RUN 



CONT 



Establishes a new start-of-orooram address 
equal to the value of ^exor'. NSC Tiny 
BASIC then executes its initialization se- 
quence which clears all variables, resets 
all hardware/software stacks, disables in- 
terruDts, enables BREAK caoabilitv from the 
console, and performs the nondestructive 
RAM search described in Chanter Section 
If the value of 'exnr^.^ao^ nts to a ROM 



address, the NSC Tiny -BAS4h o^'o^ram which 
beqlns at this address will be automatic- 
ally executed. Proqram memory (includina 
the end-of-oroqram pointer used bv the ed- 
itor) is not altered by this command. 

Sets the end-of-prooram pointer equal to 
the start-of-oroqram pointer so that a new 
nroqram may be entered. If a oroqram 
already exists at the start-of-oroqram 
address, it will be lost. 

Runs the current oroqram. 

Continues execution of the current proqram 
from the ooint where execution was sus- 
oended (via a STOP, console interruot, or 
reset) . 



LIST (exor) 

REM anythinq 
CLEAR 



Lists the current proqram (ootionally 
startinq at the line number soecified by 
( exor) . 

Remark (no operation). 

Initializes all variables to 0, disables 
interrupts, enables BREAK capability 
from the console, and resets all stacks 
(GOSUB, FOR-NEXT, DO-UNTIL). 



[LET I var = exor 
[LET! STAT = expr 



Assiqns exoression value to variable. 

Sets the STATUS word equal to the least 
siqniflcant byte of 'exor-'. When the 
STATUS word is used to enable interruots 
at the hardware, processing will be 
deferred for one statement. 



[LET] ^ffactor = expr 



Sets the memory location pointed to by 
'factor' equal to the least siqnificant 
byte of 'exor'. 
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{LET] Sfactor = "strinq-" 

CLETJ factor = factor 
PRINT exnr 
PRINT "string^ 

PRINT Sfactor 

IF exor ITHEN3 
sta tement< s > 

FOR var = expr TO exor 
{STEP exnrl 

NEXT var 
DO 

UNTIL exnr 
GO TO exor 

GOSUB exnr 



RETURN 
INPUT var 
INPUT Sfactor 

LINK exor 

ON exor! • exDr2 



Assigns a string in RAM starting at the 
address 'factor'. Strings are terminated 
by a carriage return. 

Memory to memory string a ssignment, ( cooy) . 
Prints the value of ■'exor'. 

Prints the string. 

* *■ 
Prints the string starting at the memory 
address 'factor^. 

Remainder of the orog ram line is executed 
if exor is true (non-zefo). 

FOR looD initialization. FOR looDS may be 
nested uo to four levels deeo. 

FOR looo termination. 

DO looD initiation. DO loops may be nested 
UD to eight levels deep. 

DO loop termination. 

Transfer control to statement number 
-'expr'. 

Call subroutine at statement number 'expr'. 
Subroutine (including those servicing in- 
terrupts) may be nested up to eight levels 
deen. 

Return from subroutine. 

Read value from console into variable. 

Read string from console into memory be- 
ginning at address 'factor'. 

Links to an assembly language subroutine 
which begins at the address 'expr'. 

InterruDt processing definition. When 
interruDt number exorl occurs , NSC Ti ny 
BASIC will execute a GOSUB beginnina at 
line number exor2. If exor 2 is zero, the 
corresponding Interruot is disabled at the 
software level. Interrupt numbers may be 
I or 2. Use of the ON statement disables 
console interrupts (BREAK function). In- 
terruots must also be enabled at th** hard- 
ware level by setting the Interrupt Enable 
bit in the status register (using STAT=1, 
for example). 
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DELAY exor Delay for expr time units (nominally milli- 

seconds, 1-1040), Delay 0 gives the max- 
imum delay of 1040 milliseconds, 

STOP Terminate orogram execution. A messaqe is 

nrinted and NSC Tiny BASIC returns to 
COMMAND mode. 



OPERATORS 

Arithmetic operators! 
Relational ooerators« 



Logical onerators* 

l*f actor 

FUNCTIONS 

STAT 

TOP 

INC (X), DEC (X) 

MOD (X,Y) 
RND (X,Y) 



addition 
subtraction 
muitic^llcatlon 
dl vision 



/ 



less than < 

greater than > 

equal to « 

no equal to <> 
less than or equal 

to <= 

greater than or 

equal to >= 



logical AND 
logical OR 
logical NOT 



AND 

OR 

NOT 



Read a byte from memory/neriDheral , or 
write a byte to memory/oerioheral , 
Factor Is the memory/oerioheral addre«;s 



Status Reaister contents. 

ToD-Of-Program address (first available 
memory address after end-of-orogram byte) 

Increment or decrement a memory location 
(non-interruptable for multiprocessing). 

Modulus function (remainder of x/y). 

Random number generator (in interval x,y) 
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COMMANDS (cannot be u<;ed as statements) 



NFW expr Establishes a new start-of-oroorani address 

equal to the value of exor. NSC Tiny 
BASIC then executes its initialization 
sequence which clears all variables, resets 
all hardware/software stacks, disables In- 
terrupts, enables BREAK caoability from the 
console, and oerforms the non-destructive 
RAM search described in Sect,ion II, If 
the value of exor noints to a ROM address, 
the NSC Tiny BASIC oroqram which beqins at 
this address will be automatically executed 
and Droqram memory (includinq th^ jfp|:i-of- 
oroqram pointer used by the edito'r^) is not 
altered by this command, - 

NEW NEW followed only by a carriaqe return sets 

the end-of-oroqram pointer equal to the 
start-of-oroqram pointer so that a new 
orooram may be entered. If a oroqram 
already exists at the start-of -proqram 
address, it will be lost, 

RUN Runs the current oroaram, 

CONT Continues execution of the current oroqram 

from the ooint where execution was sus- 
pended (via a STOP, console interrupt or 
reset). 

LIST exor Lists the current oroqram (optionally 

startinq at the line number soecified by 
exor) • 
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NSC Tiny BASIC Grammar 

All items in single quotes are actual symbols In NSC Tiny BASIC; all 
other identifiers are symbols in grammar. The eouals siqn means 
"is defined as^l oarentheses are used to group several items to- 
gether as one itemi the exclamation noint, "M*, means an exclusive ~ 
or choice between the items on either side of it» the asterisk, 
means zero or more occurrences of the item to its l^eftl the olus 
sign, "-f**, means one or more reoetitionsl the guestion mark, 
means zero or one occurrences! and the semicolon, marks the end 

of a definition. 

NSC Tiny BASIC - line = Immedip-te-statemen^: 

! Program-line 
f 

Immediate- statement = (Command ! Statement-list) Carriage-return! 

Program-line = [Decimal-number 3 Statement-list Carriage-return)! 

Command = ^NHW Decimal-number? 

I -^LIST^ Decimal-number? 
! -'RUN-' 
! •-'CONT-' 

Statement-list = Statement (-'t' Statement) *! 

Statement = 'LET^ ? Left-part Rel-exp 

! ^LET^ ? Factor '=^' (String ! Factor) 

! 'GO' ('TO' ! 'SUB-^) Rel-exp 

! 'RETURN' 

! ('PR' ! 'PRINT') Print-list 

! 'IE' Rel-exnr 'THEN-' ? Statement-list 

! 'DO' 

! 'UNTIL' Rel-exn 

! 'FOR' Variable '=' Rel-exo 'TO' Rel-exp ('STEP' Rel-exo)? 

! 'NEXT' Variable 

! 'INPUT' '$-' Factor ! Variable-list 

! 'LINK' Rel-exp 

I 'REM' Any-Character-Exceot-^Carri age-Return * 

! 'STOP' 

! 'CLEAR' 

! 'DELAY' Rel-exo 

! 'ON' Rel-exo ',' ? Rel-exo 

! 
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Factor = (Variable ! Number ! Function ! Rel-exo 
Left-oart = (Variable ! Factor ! -'STAT^) t 

WFL-HXP ^ Term re I -on tern 

S^ING = ^"^ Anv-character-exceot-«»-or-CR'«'' 

V AAHLE = 'A' ! ! ,^Z^ 

VARIAfiLF-LIST « Variable C-',' Variable )★ 
PRINT-ITFM = <Rel~exo ! 'S'factor I String) 
PRINT-LIST « PRINT-ITRM PRINT-ITEM)*< 'I-')? 

Function = ''MOD' Rei-exp fiel-exp ^)-' 

! -'RNO' Rel-exD Rel-exo 

! 'IHC 'C^ Rel-exD 

! 'DEC -^C^ Rel-exo 'I-' 

I 

Term = Factor Termoo Factor 
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APPENDIX F 



1 J=7936 : * J= " 0 1 23456789 ABCDEF " s D= J+ 1 7 : M=D+8 1 P=M+20 s PR " CMD " 5 

2 1 NPUT*P : X=4352 : Y=6399 : Z=#FF s 0=27 s G0SUB50 ! C=T : G0SUB50 : F=T : P-P- 1 : fi^3 

3 1 FC:=67 Y=4352 ! Z = Y : GOTO 1 5 

4 I FC=86Z=#8000 : GOTO 1 5 

5IFC=69X=#8000: Y=#87FF: G=31 : GOTO 15 

6 1 FC=70G=3 1 s GOTO 1 5 

7 1 FC=S0Z=8 J. 92 s G=35 s GOTO 1 5 

8IFC=76X=0: Y=l ! Z=0: S=l ! 0=38: G0T015 

9 1 FC=65 X =0 ! Y=0 s Z =0 : S= 1 s 0=39 : GOTO 1 5 

1 0 I FC=68S=2 : G=42 : GOTO 1 5 

1 1 1 FC=87 Y=8 191: 8=2 : G=46 : GOTO 1 5 

12IFC=82X=0: Z=0: S=l : G=47: G0T015 

13PR" INPUT ERR": GOTO 1 

14PR"D0NE":G0T01 

i5N=l: IFF=#DG0T0G 

16R=0 

1 7G0SUB50 : I F ( T=#D ) OR ( T=47 ) OR ( T=44 ) G0T02 1 

18T=T-48: IF(T<0)0R(T>22)0R( (T>9) AND(T<17) )G0T013 

i9IFT>9T=T-7 

20R=16«R+T:G0T017 

21IFN=1X=R:G0T024 

22IFN=2Y=R! G0T024 

23Z=R 

24N=N+l: IFN>SGOTOG 

25IFT=#DG0T013 

26G0T016 

27F0RI=XT0Y: IFC=67eZ=@I 

28IF@Z=@IG0T030 

29A=Z : B=:@I : C=@Z : G0SUB4S 

30Z=Z+1:NEXTI:G0T014 

31F0RI=XT0Y: IFC=70ei=Z 

32IF@I=ZG0T034 

33A= I : B=Z : C=©I s G0SUB48 

34NEXTI:G0T014 

35F0RI=C)T0(Y-X> :@(Z + I >=:©(X+I ): IF© ( #6000+Z+I >=@(X4-I )G0T037 
36A=#6000+Z+I : B=@( X + I ) : C=@ ( #6000+Z+I ) : G0SUB48 
37NEXTI:G0T0i4 

38PR"TURN READER ON" : L INK#8DS1 : G0T040 
39PR" CONNECT RS-232" : LINK#8DS8 
40IFZ=1PR"CKSUM ERR": GOTO 1 
41G0T014 

42F0RI=XT0YSTEP16:H=I:LINK#8E4E:*M=" . . . " 

43F0RL= I TO I + 1 5 : H=@L : L I NK#8E3F 
44IF(H>31 )AND<H<#7B)@(M+L--I )=H 
45NE X TL : PR*M : NE X T I : GOTO 1 4 
A6L I NK#8E8F : GOTO 1 4 
47LINK#SF65: G0T040 

48PR" ADDRESS " ? : H=A: L.INK#8E4E: PR"SB " 5 : H=B: LINK#8E3F: PR" IS " ; : H=C 
49LINK#8E3F: PR" " : RETURN 
50T=@P: P=P-»-l : IFT=32G0T050 
51 RETURN 
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APPENDIX G 



REM ***** 8070 UTILITY PROGRAM ***** 
REM ***** BY RON PASQUALINI, NSC ***** 

REM This version of th€f prosram has been expanded for 
REM lesibilitv. It will not run as shouin since some 
REM lines do not have line numbers. The compressed 
REM version of the program is f unct ional Iv identical 
REM and will run properlv. 



REM Initialize variables and Prompt for command 

1 J=7936 : *.J= "01 23456789 ABCDEF" 
D=J+17 : M=D+8o5 P=M-4-20 
PR "CMD"; 

2 INPUT $P 

X=4352 : Y=6399 : Z=#FF : 0=27 : GOSUB 50 
C=T : GOSUB 50 : F=T : P=P~1 : S=3 

REM Test command letter 7 setting default values 
REM as needed for the entered command. 

3 IF C=67 Y=4352 : Z=Y : GOTO 15 

4 IF C=86 Z=#8000 : GOTO 15 

5 IF C=69 X=#8000 : Y=#S7FF : G=31 : GOTO 15 

6 IF C=70 0=31 : GOTO 15 

7 IF C=SO Z=8192 s 0=35 : GOTO 15 

S IF C=76 X=0 : Y=l : Z=0 s S=l : G=38 : GOTO 15 
9 IF C=65 X=0 s Y=0 : Z=0 : S=i : G=39 : GOTO 15 

10 IF C=6S S=2 : G=42 : GOTO 15 

11 IF C=S7 Y=8191 : S=2 : 0=46 : GOTO 15 

12 IF C=82 X=0 ! Z=0 : S==l : G=47 : GOTO 15 

REM Error messages 

13 PR "INPUT ERR" s GOTO I 

14 PR "DONE" : GOTO 1 

REM Process command operands 

15 N=l s IF F=#D GOTO G 

16 R=0 

17 GOSUB 50 : IF (T=#D) OR (T=47> OR (T=44) GOTO 21 

IS T=T-48 : IF (T<0) OR (T>22) OR ( (T>9) AND <T<17)) GOTO 13 

19 IF T>9 T=T-7 

20 R=16*R+T : GOTO 17 

21 IF N=l X=R s GOTO 24 

22 IF N=2 Y=R : GOTO 24 

23 Z=R 

24 N=N+1 : IF N>S GOTO G 

25 IF T=#D GOTO 13 

26 GOTO 16 

REM Process "C", "V" Commands 

27 FOR I=X TO Y 

IF C=67 @Z=@I 

28 IF (i*Z=@I GOTO 30 
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REM 
REM 
REM 
REM 
REM 
REM "A" 
REM "D" 
REM "W" 
REM "R" 



iiyii 

II p II 
iipii 
It p II 

III II 



29 A=Z ! B=@I : C=^&I : GOSUB 48 

30 Z=Z+l 
NEXT I 
GOTO 14 

REM Process "E% "F" Commands 

31 FOR I=X TO Y 

IF C=70 @I==Z 

32 IF ei=Z GOTO 34 

33 A=l ; B=Z ! C=@I : GOSUB 48 

34 NEXT I 
G0T0-f4 

REM Process "P" Command 

35 FOR 1=0 TO <Y-X) 

e<Z+I)=@<X+I) 

IF @(#6000+Z+I )=:@(X4-I ) GOTO 37 

36 A=#6000+Z+I : B=@(X+I) 

#6000+Z+I) s GOSUB 48 

37 NEXT I 
GOTO 14 

REM Process "L" Command 

38 PR "TURN READER ON" : LINK #8081 : GOTO 40 
REM Process "A" Command 

39 PR "CONNECT RS-232" s LINK #SDSS 

REM Post process inf? for "L"» "A" Commands 

40 IF Z=l PR "CKSUM ERR" s GOTO 1 

41 GOTO 14 

REM Process "D" Command 

42 FOR I=X TO Y STEP 16 

H=I : LINK #8E4E : *M=" " 

43 FOR L=I TO 1+15 

H=@L : LINK #8E3F 

44 IF (H>31) AND (H<#7B) @(M-»-L~I)=H 

45 NEXT L 
PR m 

NEXT I 
GOTO 14 

REM Process "W" Command 

46 LINK #8E8F : GOTO 14 
REM Process "R" Command 

47 LINK #8F65 : GOTO 40 

REM Subroutine: Print verification error 
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48 PR "ADDRESS "! : H=A : LINK #8E4E 
PR "SB : H=B : LINK #8E3F 

PR "IS : H=--C 

49 LINK #SE3F : PR : RETURN 

REM Subroutine! Get next character from input buffer 

50 T=ep : P=^P+1 : IF T=32 GOTO 50 

51 RETURN 
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8070 ASSEMBLER REV-A 06/06/79 

AS8070 8070 UTILITY SUBROUTINES APPENDIX H 



2F 



.TITLE AS8070, 9070 UTILITY SUBROUTINES" 
.LIST 02F 



6 

7 

'zi 

9 
10 
1 1 
12 
13 
14 
15 

16 0000 

17 

18 



^ASSYLANG ■ PROGRAM 
BY 

RON PASQUALINI 
NATIONAL SEMICONDUCTOR 

; 'ASSYLANG- INCLUDES ALL OF THE ASSEMBLY LANGUAGE 
; SUBROUTINES REQUIRED BY THE NIBL2 PROGRAM 'UTILITY', 



. =08D8 1 

. INCLD ASCILD 
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8070 ASSEMBLER REV- A " 06/06/79 

AS8070 8070 LfTILITY SUBROUTINES 
ASCILD 



. PAGE 



'ASCILD" 



• ASCILD • DOWNLOADS AN ASSEMBLY LANGUAGE LM OR NIBL2 SOURdt. 
PROGRAM AT 4800 BAUD IN RESPONSE TO THE COMMAND 'A-. IT IS 
ALSO ENTERED TO LOAD AN ASSEMBLY LANGUAGE LM FROM PAPER 
TAPE AT 110 BAUD IN RESPONSE TO THE COMMAND L', FOR BOTH 
COMMANDS THE DOWNLOADED PROGRAM MUST BE IN THE FORM OF 
ASCII CHARACTERS. THIS SUBROUTINE CALLS THE NIBL2 
SUBROUTINE 'GECO'". 



TWO ASCII CHARACTERS EQlJ^EJ -ONE BYTE, WITH THE MOST 
SIGNIFICANT NIBBLE (MSN) LOCATED AT THE LOWER MEMORY 
ADDRESS. THE LEAST SIGNIFICANT NIBBLE (LSN) IS LOCATED AT 
THE HIGHER MEMORY ADDRESS. 



THE FILE FORMAT FOR A DATA RECORD IS AS FOLLOWS: 

1) START OF RECORD CHARACTER (X"02) 

2) RECORD LENGTH, X'Ol-X'FF, (2 ASCII CHAR) 

3) MSB OF RECORD LOAD ADDRESS (2 ASCII CHAR) 

4) LSB OF RECORD LOAD ADDRESS (2 ASCII CHAR) 

5) RECORD TYPE (2 ASCII CHAR) 

(DATA RECORD=X-00, END REC0RD=X01) 

6) 1-255 DATA BYTES (2 ASCII CHAR PER BYTE) 

7) RECORD CHECKSUM OF THE HEXADECIMAL 
EQUIVALENT OF ALL BYTES IN 2) THRU 6) 
IN 2-S COMPLEMENT FORM 



THE BAUD RATE FOR DOWNLOADING CAN BE 110 OR OR 
DEPENDING UPON THE SUBROUTINE ENTRY POINT. 



4800 BAUD, 



THE ASCILD" 
DESTROYS A, 
CALLED. 



SUBROUTINE REQUIRES 8 BYTES OF STACK MEMORY ?/ 
E, P2 ?•< P3. THE NIBL2 SUBROUTINE -GECO- IS 



DISPLACEMENTS RELATIVE TO P3: 



ooocj 

C»00 1 
0002 
0003 



0004 
0009 



NBYTES 

MCKSUM 
RECTYP 
MSN 



CTR 

BYTCTR 



NUMBER OF DATA BYTES IN 
DATA RECORD 

CHECKSUM FORMED IN MEMORY 
RECORD TYPE 

MOST SIGNIFICANT NIBBLE 
OF 8 BIT BYTE IN 'GETBYT- 
SUBROUTINE 

CTR FOR DELAY @ END OF SUBR 
BYTE CTR FOR -•HEX2AS- SUBR 



DISPLACEMENTS RELATIVE TO P2: 



O006 



i-ET 



D,6 



CONTENTS OF NIBL2 VARIABLE 
D POINTS TO MEMORY LOCATION 
WHERE ASCII EQUIV OF 2/4 
DIGIT HEX NUMBER IS STORED. 
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S070 ASSEMBLER REV~A 06/06/79 
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ASCILD 



OOOE 



002E 



0030 



0032 



>ET 



.SET 



.SET 



SET 



H, 14 



X,46 



Y,48 



Z,50 



MS CHAR IS AT LOWEST MEMORY 
ADDRESS, TO WHICH D POINTS 
CONTENTS OF NIBL2 VARIABLE 
H EQUAL STARTING ADDRESS OF 
EACH DATA RECORD 
DISPLACEMENT FOR RECORD 
STARTING ADDRESS 
(NIBL2 VARIABLE X) 
BAUD RATE INDICATOR FLAG 
WHICH ALLOWS PRINTOUT OF 
STARTING ADDRESS OF E^idH 
RECORD AT « lib BAUD ONLY. 
<NIBL2-^^AW1ABLE Y) • 
CHECKSUM ERROR FLAG 
(NIBL2 VARIABLE Z) 



FFOO 



.SET 



SRAM,OFFOO 



STARTING LOCATION 
OF SCRATCH RAM TO 
WHICH P3 POINTS 



FFEC 



0933 



FDELAY = OFFEC 



GECO 



= 00933 



LOCATION WHERE DLY CONST 

FOR 1 BIT DLY IS STORED 

(REQUIRED BY NIBL2 'GECO' 

SUBROUTINE) 

ENTRY POINT FOR 

NIBL2 'GECO' SUBROUTINE 



ASCILD: 

SD81 845202 BllO: LD 

SD84 8DEC ST 

8DS6 7405 BRA 



SDSS 840400 B4S00: LD 

SD8B 8DEC ST 

8D8D 39FE NEXT: AND 

SD8F 2700FF LD 

SD92 203209 LOOPl: JSR 



8D95 06 
8D96 D410 
8D98 6CFB 



8D9A 40 
8D9B E402 



NSTOPl: LD 
AND 
BZ 



LD 
XDR 



EA,=X'-252 
EA, FDELAY 

NEXT 



EA,==04 

E A, FDELAY 

S,=OFE 

P3,=SRAM 

GECO 

A, S 

A, =010 
NSTOPl 

A,E 
A, =02 



BAUD RATE =110 

STORE DELAY COUNT FOR 1 BIT 

DELAY e 110 BAUD 

CONTINUE 

BAUD RATE =4800 

STORE DELAY COUNT FOR 1 BIT 

DELAY @ 4800 BAUD 

DISABLE INTERRUPTS 

POINT P3 TO SCRATCH RAM 

ASCII CHAR— > A REG Z< E REG 

SAMPLE SA S< WAIT UNTIL 
SA=-'l. (PARITY BIT=1 OR 
STOP BIT=1 HAS OCCURRED) 

SA=1 

ASCII CHAR— ->A REG 
LOOP IF CHAR <> X-02 
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8070 ASSEMBLEfR REV-A 06/06/79 
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ASCILD 



8D9D 7C.F3 



BNZ 



LOOPl 



(START OF RECORD) 



8D9F 20168E 
8DA2 CBOO 



JSR GETBYT 

ST A, MBYTES, P3 



1 X^02 FOUND 

; GET RECORD LENGTH (IN HEX) 
; AND SAVE IT 



8DA4 CBOl 



ST 



A,MCKSUM,P3 



INITIALIZE MEMORY CHECKSUM 



8DA6 2016SE 



JSR 
PUSH 



GETBYT 
A 



; GET MSB OF LOAD ADDRESS 

; (ADDRH) Sff^^AVE ON THE STACK 



SDAA -FSOl 
SDAC CBOl 



ADD A,MCKSUM,"P3' 
ST A,MCKSUM,P3 



1 UPDATE MEMORY CHECKSUM 



8DAE 20168E 



JSR 



GETBYT 



GET LSB OF LOAD ADDRESS 
(ADDRL) IN A REG t< E REG 



8DB1 F301 
SDB3 CBOl 



ADD A,MCKSUM,P3 
ST A,MCKSUM,P3 



UPDATE MEMORY CHECKSUM 



8DB5 38 
8DB6 01 



POP 
XCH 



A 

A,E 



ADDRH — >A REG 

ADDRH — >E REG, ADDRL — >A REG 



8DB7 260010 
8DBA B22E 



LD 
ADD 



P2 7 =01 000 
EA, X,P2 



POINT P2 TO NIBL2 VARIABLES 
ADD DISPL (NIBL2 VAR X) 



8DBC 8A0E 



ST 



EA,H,P2 



SAVE RECORD STARTING ADDR 
IN NIBL2 VARIABLE H 



SDBE 20168E 
8DC1 CB02 



JSR GETBYT 

ST A,RECTYP,P3 



GET RECORD TYPE IN A REG 
S< E REG t< SAVE IT 



8 DC 3 F301 
8DC5 CBOl 



ADD A,MCKSUM,P3 
ST A,MCKSUM,P3 



UPDATE MEMORY CHECKSUM 



8DC7 40 
8DC8 7C20 



LD 
BNZ 



A,E 

NOTDTA 



RECORD TYPE — >A REG 

IF RECORD TYPE = 0 
IT IS A DATA RECORD 



A REG=0. RECORD IS 
A DATA RECORD 

IF BAUD RATE=110 PRINT 
OUT RECORD STARTING 
ADDRESS 



SDCA 8230 
8DCC E401 
8DCE 7 CO A 



LD 

XOR 

BNZ 



EA, Y,P2 
A, =01 
DTAREC 



IF Y=l BAUD RATE=110 



? BAUD RATE=110 

? PRINT OUT RECORD 

; STARTING ADDRESS 
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8DD0 18 



CALL 



8DD1 221 18E 
BDD4 IE 

8DD5 204D8E 



PL I 
CALL 

• JSR 



8DD8 IS 

8DD9 5E 

8DDA 820E 
SDDC 46 



DTAREC: 



8DDD 20168E NXTBYT: 

8DE0 CEOl 

8DE2 F301 
8DE4 CBOl 

SDE6 9B00 
SDE8 7CF3 



CALL 

POP 

LD 
LD 

JSR 

ST 

ADD 
ST 

DLD 
BNZ 



SDEA 20168E NOTDTAs JSR 



8DED OA 
SDEE 18 
SDEF 38 



PUSH 
CALL 
POP 



P2»=ADRMSG 
14 

PRT4 



P2 

EA,H,P2 
P2,EA 

GETBYT 

A , @+ 1 , P2 

A,MCKSUM,P3 
A,MCKSUM,P3 

A, MBYTES »P3 
NXTBYT 

GETBYT 

A 
8 
A 



PRINT CR/LF TO PUT RECORD 
ADDRESS ON A NEW LINE. 
(NECESSARY BECAUSE ' GECO % 
NOT 'GETC', MUST BE USED). 

POINT P2 TO 1ST CHAR OF 
ADDR MSG & SAVE OLD P2 
PRINT OUT THE MESSAGE: 
"ADDR=X"' WITHOUT CR/LF 

PRINT OUT 4' CHAR ASCII 
I^EQUIV OF 16 BIT HEX 
STARTING ADDRESS, 
WITHOUT CR/LF 

PRINT CR/LF 

RESTORE OLD P2 

RECORD START ADDR — >EA REG 
RECORD START ADDR — >P2 

GET DATA BYTE 

STORE BYTE 8< INCR PTR 

UPDATE MEMORY CHECKSUM 



DECREMENT BYTE COUNT 
»u LOOP IF COUNT <> 0 

GET RECEIVED CHECKSUM 

SAVE CHECKSUM ON STACK 
PRINT CR/LF 

RESTORE CHECKSUM TO A REG 



8DF0 F301 
SDF2 6C0S 



8DF4 260010 
8DF7 840100 
8DFA 8A32 



ADD 
BZ 



LD 
LD 
ST 



8DFC C302 RECTST: LD 
8DFE E401 XOR 



SEOO 7C90 



BNi 



A,MCKSUM.P3 
RECTST 



P2 , =0 1 000 
EA,=01 
EA» Z,P2 

A>RECTYP.P3 
A» =01 

LOOPl 



ADD MEMORY CHECKSUM 

TEST SUM FOR ZERO 

SUM <> 0. CHECKSUM 

ERROR HAS OCCURRED 

POINT P2 TO NIBL2 VARIABLES 

SET NIBL2 VARIABLE Z=l 

TO INDICATE CHECKSUM ERROR 

LOAD RECORD TYPE TEST 
FOR END RECORD = X 01 

GET NEXT RECORD IF CURRENT 
RECORD IS NOT AN END RECORD 
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::ILD 



E02 C496 
E04 CB04 

E06 C4FF Lis 
EOS 20F78F 

SEOB 9B04 
8E0D 7C:F7 

8E0F 18 



8E10 5C 



8E11 4144 ADRMSG: 
8E16 A7 



LD A, =150 

ST A,CTR,P3 

LD A,=OFF 

JSR DELAY 

DLD A>CTR,P3 

BNZ LI 

CALL 8 



RET 



.ASCII •••ADDR=- 
.BYTE ••••'•••^ + 080 



CURRENT RECORD = END RECORD. 
DELAY APPROX .54 SEC IN ORDER 
TO SLEW OFF NULLS AT END OF 
END RECORD. THIS WILL INSURE 
THAT SA=1 UPON RETURN TO NIBL2 
PROGRAM @ 4800 BAUD. THIS 
DELAY IS ONLY REQUIRED AT 4800 
BAUD, BUT DOES NOT HAVE ANY 
DETRIMENTAL EFFECT AT 110 
BAUD, USING ^ TTY WITH ,A pf 
READER RELAY. ^ 
SAVE # OF TIMES 'DELAY' 
WILL BE CALLED 

LOAD DELAY COUNT 
DELAY FOR 3609 USEC 

DECREMENT ?< LOAD LOOP COUNT 
S/. REPEAT IF LOOP COUNT <> 0 

PRINT CR/LF @ END OF RECORD 
(FOR 110 BAUD USING TTY) 

RETURN 



? ADDRESS MSG FOR 110 BAUD 
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.PAGE ^ASCILD - GETBYT'- 

; 'GETBYT' GETS TWO ASCII CHARACTERS AND COMBINES THEM INTO A 

! SINGLE 8 BIT BYTE. 

; GETBYT' REQUIRES 1 BYTE OF SCRATCH RAM (MSN), USES 4 BYTES 

! OF STACK MEMORY, C^ALLS THE NIBL2 SUI^ROUTINE GECO', AND 

; DESTROYS REGISTER A AND REGISTER E. 

5 THE BYTE WHICW IS GOTTEN IS RETURNED IN THE A REGISTER AND 

; THE E REGIST#. 

•. SUBROUTINE PAP^AMETERS INCLUDE: 



MSN DISPLACEMENT RELATIVE TO P3 



8E17 203209 GETBYT: JSR 



8E1A 06 
8E1B D410 
8E1D 6CFB 



8E1F 40 
8E20 2D02 
SE22 7402 
SE24 FC37 



SE26 OE 
8E27 OE 
8E2S OE 
SE29 OE 

8E2A CB03 

8E2C 203209 



8E2F 06 
SE30 D410 
SE32 6CFB 



SE34 40 
SE35 2D02 
8E37 7402 



NST0P2: LD 
AND 
B2 



LD 
BND 
BRA 
SUB 



ATOFi 



SHIFTl 



SL 
SL 
SL 
SL 

ST 
USR 



NST0P3: LD 
AND 
BZ 



LD 

BND 

BRA 



GECO 



A,S 

A, =010 
NST0P2 



A,E 
ATOFI 
SHIFTl 
A,=X'-37 

A 
A 
A 
A 

A,MSN,P3 
GECO 



A, S 

A, =010 
NST0P3 



A,E 

AT0F2 

ORNIBL 



GET ASCII EQUIV OF MSN 
IN A REG tc E REG 

SAMPLE SA 8< WAIT UNTIL 
SA=1. (PARITY BIT=i OR 
STOP BIT=1 HAS OCCURRED) 

SA=1 

ASCII EQUIV OF MSN — >A REG 

TEST FOR X''30<=MSNC=X -39 

X'00<=A REG<=X'09. CONTINUE 

CONVERT ASCII A THRU F 
TO HEX A THRU F 

SHIFT MSN 4 BITS 
TO THE LEFT, PLACING 
ZEROS INTO LSN 
POSITION 

SAVE MSN 

GET ASCII EQUIV OF LSN 
IN A REG %i E REG 

SAMPLE SA S< WAIT UNTIL 
SA--=1. (PARITY BIT=1 OR 
STOP BIT=1 HAS OCCURRED) 

SA=1 

ASCII EQUIV OF LSN— >A REG 

TEST FOR X-30<=LSN<=X-39 

X ••■ OOO A REGO X ' 09 . CONT I NUE 
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8E39 FC:37 AT0F2: SUB 



8E3B DB03 ORNIBLs OR 



8E3D 48 
8E3E 5C 



LD 



A,=X''37 



A,MSN,P3 



E.A 



19 



RET 

- INCLD HEff^ASCI 



; CONVERT ASCII A THRU F 

; TO HEX A THRU F 

? OR HSN WITH LSN TO 

; FORM 8 BIT CHARACTER 

; RUT CHAR INTO E REG 

; RETURN 
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. PAGE 



•'HEX2ASCI 



'•HEX2ASC:r' WILL CONVERT A HEX NUMBER TO ITS ASCII 
EQUIVALENT AND PRINT THE NUMBER WITH A TRAILING SPACE 
APPENDED. 2 DIGIT & 4 DIGIT HEX NUMBERS MAY BE CONVERTED 
DEPENDING UPON THE ENTRY POINT. 

THE SUBROUTINE REQUIRES 6 BYTES OF STACK MEMORY, DESTROYS 
REGISTERS A, E, T, 8e P2y AND CALLS THE SUBROUTINES 
-•CONBYT S 'CONNIB', & NIBL2 CALL 14 (PRTLN). 

THE HEX NUMBER TO BE CONVERTECf IS ASSUMED TO BE STORED IN 
THE NIBL2 VARIABLE H, AND THE ASC"I I EQUIVALENT OF THE HEX 
NUMBER IS STORED IN THE MEMORY LOCATION POINTED TO BY THE 
NIBL2 VARIABLE D. THE OUTPUT STRING CONSISTS OF 3 ASCII 
CHARACTERS FOR A 2 DIGIT HEX NUMBER, AND 5 ASCII CHARACTERS 
FOR A 4 DIGIT HEX NUMBER. THE MSD IS STORED AT THE LOWEST 
MEMORY LOCATION, WHICH IS THE BEGINNING OF THE OUTPUT 
STRING. 



HEX 2 ASCI: 
8E3F 260010 PRT2: LD 



SE42 8206 
SE44 B40300 



8E47 46 

8E48 C401 
8E4A CB09 

8E4C 740D 

SE4E 260010 PRT4! 

8E51 8206 
8E53 B40500 

8E56 46 

8E57 C402 
SE59 CB09 



8E5B C4A0 
8E5D CEFF 



8E5F 220010 



INITi 



LD 
ADD 



LD 

LD 
ST 

BRA 

LD 

LD 
ADD 

LD 

LD 
ST 

LD 

ST 



PL I 



P2, ==01000 

EA,D,P2 
EA,=3 



P2,EA 
A,==l 

A,BYTCTR,P3 
INIT 

P2, =01000 

EA,D,P2 
EA,=5 

P2 , E A 
A, =2 

A,BYTCTR,P3 

A, -OAO 
A,@-1,P2 



P2»=01000 



; POINT P2 TO NIBL2 VARIABLES 

; LOAD CONTENTS OF NIBL2 VAR D 

; ADD DISPL TO END OF STRING 

; + 1 

; END OF STRING LOC + 1 — >P2 

; STORE # OF BYTES TO CONVERT 

; CONTINUE 

; POINT P2 TO NIBL2 VARIABLES 

; LOAD CONTENTS OF NIBL2 VAR D 

; ADD DISPL TO END OF STRING 

; + 1 

; END OF STRING LOC + 1 — >P2 

; STORE # OF BYTES TO CONVERT 



; STORE ASCII "SP" WHICH WILL 
; APPEAR AT END OF PRINTED 
; STRING, WITH B7=l TO DENOTE 
END OF STRING. DECREMENT P2 

; POINT P2 TO NIBL2 VAR & 
! SAVE OLD P2 
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8E6S? 820E 
8E64 09 



8E66 20728E CONVl 



#G69 9B09 
i!E6B 6C04 

8E6D OB 
SE6E 40 



8E6F -74F5 

SE71 IE PRINT: 



LD 
LD 

POP 

JSR 



DLD 
BZ 

LD 
LD 



BRA 
CALL 



EA,H,P2 
T,EA 

P2 

CONBYT 



A,BYTC:TR,P3 
^ PRINT 

EA,T 
A,E 



CONVl 
14 



? LOAD HEX # TO BE CONVERTED 
? TO ASCII 8< SAVE IT IN T 

! RESTORE OLD P2 

CONV HEX BYTE IN A REG TO 
2 ASCII 'CHARACTERS, STORE 
THEM IN THE OUTPUT STRING 
& DECREMENT P2 BY 2 

; DECREM^T BYTE COUNT 

; 8f exitItf count = 0 

? TRANSFER 16 BIT HEX 

! # TO BE CONVERTED TO 

; TO EA REG, PLACE 

5 MSB IN THE A REG 

5 CONTINUE 

; PRINT OUT ASCII FQUIV 

5 OF HEX # WITH TRAILING 

; SPACE AND NO CR/LF 



8E72 5C 



RET 



RETURN 
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.PAGE '■HEX2ASCI - CONBYT ' 

; 'CONBYT' CONVERTS THE HEX BYTE PRESENT IN THE A REGISTER TO 

; ITS ASCII EQUIVALENT, AND STORES THE TWO ASCII CHARACTERS 

; CREATED IN THE MEMORY LOCATIONS POINTED TO BY P2. P2 MUST 

; BE SET TO AVAILABLE RAM BEFORE THE SUBROUTINE IS ENTERED, 

? AND P2 IS DECREMENTED BY 1 WHEN EACH ASCII CHARACTER IS 

? STORED. 

? THE SUBROUTINE DESTRj^S REGISTERS A AND E, AND IS EXITED 

; WITH P2 POINTING TO^AE MS ASCII DIGIT, WHICH IS STORED AT 

5 THE LOWER MEMORY LOCATION. 



8E73 48 



8E74 207FSE 



8E77 40 

8E78 3C 
SE79 3C 
8E7A 3C 
SE7B 3C 

8E7C 207FSE 



SE7F 5C 



CONBYT: LD 



JSR 



LD 

SR 
SR 
SR 
SR 

USR 



RET 



E, A 



CONN IB 



A,E 

A 
A 
A 
A 

CONN IB 



; SAVE BYTE TO BE 

; CONVERTED IN E REG 

; CONVERT & STORE ASCII 

; EQUIV OF LS NIBBLE 

; RESTORE HEX BYTE TO A REG 

? SHIFT MS NIBBLE TO LS 

; NIBBLE POSITION 



; CONVERT & STORE ASCII 
; EQUIV OF MS NIBBLE 

; RETURN 



8E80 D40F CONNIB: AND A,=OF 

8ES2 FCOA SUB A,=OA 

8E84 6404 BP GEIO 

SE86 F43A LTIO: ADD A,=X-3A 

8E88 7402 BRA STORE 

SE8A F441 GEIO: ADD A,=X-4r 

8E3C CEFF STORE: ST A,e~i,P: 



8ESE 



20 



RET 

. INCLD WRTAPE 



MASK OFF LS 4 BITS 

SUBTRACT X'A=10 

TEST RESULT 

NIBBLE WAS 0 THRU 9 
CONV NIBBLE TO ASCII 

CONTINUE 

NIBBLE WAS 10 THRU 15 
CONV NIBBLE TO ASCII 

STORE ASCII EQUIV OF 
NIBBLE 8< DECR P2 BY 1 

RETURN 
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.PAGE "WRTAPE- 

; -WRTAPE" INTERFACES THE INS8073 TO A CASSETTE RECORDER TOR 

; STORAGE /RETRIEVAL OF USER PROGRAMS. PROGRAMS WHICH MAY BE 

; SAVED INCLUDE NIBL2 PROGRAMS AND ASSEMBLY LANGUAGE LM S. 

* 

? WHEN THE "WRTAPE' SUBROUTINE IS USED IN CONJUNCTION WITH 

; THE NIBL2 PROGRAM 'UTILITY'', THE USER CAN SPECIFY THE BLOCK 

; OF RAM TO BE WRITTEN ON THE TAPE. THE TAPE FORMAT IS AS 

? FOLLOWS: 

; i) APPROXIMATELY 5 SECWDS OF O'Sf WHICH SERVE AS LEADER 

? SO THAT THE TAPE SPEED HAS TIME TO STABILIZE ON 

; PLAYBACK. THE LEADER ALSO ALLOWS THE RECEIVING 

; PROGRAM TO PROPERLY SYNC TO THE CLOCK PULSES. 

; 2) ID CHARACTER=X"A5 WHICH IDENTIFIES THE START OF 

? EACH RECORD. 

; 3) A BYTE WHICH SPECIFIES THE RECORD TYPE: 

; DATA REC0RD=^X'01 END REC0RD=X '03 

; 4) A BYTE WHICH IDENTIFIES THE TOTAL NUMBER 

OF DATA BYTES IN EACH RECORD, N. 

; N CAN RANGE FROM 1 TO 256. (0 - 255) 

; 5) THE LSB OF THE STARTING ADDRESS WHERE THE DATA 

; RECORD IS TO BE STORED. 

; 6) THE MSB OF THE STARTING ADDRESS WHERE THE DATA 

; RECORD IS TO BE STORED. 

7) 1 - 256 PROGRAM BYTES 

; 8) A SINGLE BYTE CHECKSUM (IN 2-'S COMPLEMENT FORM) 

; OF ALL BYTES CONTAINED IN THE RECORD EXCEPT FOR 

? THE ID CHARACTER 



? DISPLACEMENTS RELATIVE 



0000 .SET NB,0 

0002 .SET N,2 

0003 .SET CKSUM,3 

0004 -SET WRCTR,4 

0005 . SET LDRCTR , 5 



NB=REMAINING # OF PGM BYTES 
TO BE WRITTEN (2 BYTES) 
N=# DATA BYTES IN DATA REC 
CKSUM IS THE RECORD CHFCKSUM 
ACCUMULATED IN MEMORY 
BIT COUNTER FOR 
THE "WRCHAR' SUBROUTINE 
LEADER COUNTER FOR THE 
SNDLDR ROUTINE (2 BYTES) 



DISPLACEMENTS RELATIVE TO P2: 



002E 
0030 



.SET 



a SET 



X,46 



LOC OF NIBL2 VARIABLE X 
(MEMORY STARTING ADDR) 
LOC OF NIBL2 VARIABLE Y 
(MEMORY ENDING ADDR) 
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FFOO 



m O 



>ET 



SRAM,OFFOO 



; SCRATCH RAM TO WHICH P3 
; POINTS FOR THE 'WRTAPE' 
? SUBROUTINE 



8E8F 39FE 
8E91 2700FF 
8E94 39FB 
8E96 3B08 

8E98 8230 

8E9A iiA2E 

8E9C B40100 
8F9F 8B00 



WRTAPE; AND 



S,=OFE 
P3,=SRAM 
S,=OFB 
S>=08 



LD 
AND 
OR 

CALCULATE AND STORE NB 
LD EA,Y,P2 
SUB EA,X,P2 



ADD 

ST 



EA,=01 
EA,NB,P3 



5 DISABLE Interrupts 

; POINT P3 TO SCRATCH RAM 
? SET F2=0 
; SET F3=l 
# OF DATA BYTES TO BE WRITTEN 



LOAD ENDING ADDRESS 
(NIBL2 Y) INTO EA REG 
SUBTRACT STARTING 
ADDRESS (NIBL2 X) 
ADD 1 
SAVE NB 



; SET PTR P2 = STARTING ADDRESS WHERE DATA IS TO BE STORED 

8EAi 822E LDP2! LD EA,X,P2 ; LOAD STARTING ADDRESS 

? INTO EA REG 

8EA3 46 LD P2.EA ? SET P2=STARTING ADDRESS 



8EA4 
SEA7 



09C4 
005E 



-84C409 
8B05 



SEND LEADER ROUTINE 

THIS ROUTINE TRANSMITS APPROXIMATELY 5 SECONDS OF O'S 
(APPROX 2500 @ 500 BAUD) TO ACT AS LEADER, ALLOW THE TAPE 
TO SETTLE ON PLAYBACK, AND TO ALLOW PROPER SYNC TO THE 
CLOCK PULSES. 

SNDLDR ROUTINE PARAMETERS: 



.SET 
.SET 



SNDLDR: LD 
ST 



8EA9 20538F LOOP A: JSR 



8EAC 
SEAE 

8EB1 
SEB3 



C45E 
20F78F 

8305 
BCO 1 00 



LD 
JSR 

LD 
SUB 



LDRCNT , 2500 
BITDLY,94 



EA,=LDRCNT 
EA,LDRCTR,P3 

PULSE 

A,=BITDLY 
DELAY 

EA>LDRCTR,P3 
EA,=:1 



# OF CLK PULSES IN LEADER 
DELAY COUNT TO PRODUCE 1 
BIT DELAY 

LOAD LEADER COUNT 
AND STORE IT 

WRITE CLK PULSE 

LOAD DELAY COUNT 
DELAY 1 BIT TIME 

LOAD LEADER COUNT 
DECR LEADER COUNT 
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8EB6 8B05 



ST 



EA,LDRC:TR,P3 



STORE NEW LEADER COUNT 



SEB8 58 
8EB9 7CEE 



OR 
BNZ 



A,E 
LOOPA 



TEST FOR LEADER COUNT 
=0. 



f^m r~" f**» T"i 

8EBB 


84FF00 


RECORDS 


LD 


EA,=255 ; LOAD 255 


8EBE 


BBOO 




SUB 


EA,NB,P3 ; SUBTRACT NB 


8EC0 


3F 




RRL 


A 5 GET CY INTO A7 


8EC1 


640B 




BP 


GT255 ; AND TEST IT 


8EC3 


8300 


LE255: 


LD 


EA,NB,P3 


\ CY=1. NB<=255 


8EC5 


CB02 




ST 


A» Ni P3 


! "nET N=NB 


8EC7 


840000 




LD 


EA,=0 


; SET NB=0 


8ECA 


SBOO 




ST 


EA,NB,P3 




8ECC 


740B 




BRA 


NXTl 


; CONTINUE 


8ECE 


C460 


GT255: 


LD 


A,=0 ! 


! CY=0. NB>255 


SEDO 


CB02 




ST 


A,N,P3 


; SET N=0 


SED2 


8300 




LD 


EA,NB,P3 ! 


I SET NB=NB-256 


8ED4 


BCOOO I 




SUB 


EA,=256 




8ED7 


SBOO 




ST 


EA,NB,P3 




8ED9 


C302 


NXTl : 


LD 


A,N»P3 


; LOAD N INTO A REG 


8EDB 


F401 




ADD 


A, =01 


1 ADD REC TYPE=X'01 


8EDD 


CB03 




ST 


A,CKSUM,P3 ! 


; STORE INTO CHKSUN 


8EDF 


C4A5 




LD 


A»=X 'A5 


; LOAD ID CHAR=X'A5 


8EE1 


20298F 




JSR 


WRCHAR 


; WRITE CHAR ON TAPE 


8EE4 


C40 1 




LD 


A, =01 ; LOAD DATA REC TYPE 


8EE6 


2029SF 




JSR 


WRCHAR 


; =X -01 WRITE ON TAPE 


SEE 9 


C302 




LD 


A,N,P3 ; LOAD # OF BYTES IN DATA REC 


8EEB 


2029SF 




JSR 


WRCHAR ; S< WRITE ON TAPE 


8EEE 


•-•■-1 




LD 


EA,P2 ; LD STARTING ADDR INTO EA 


SEEF 


20298F 




JSR 


WRCHAR ; WRITE LSB CN TAPE 


8EF2 


F303 




ADD 


A7CKSUM,P3 ; ADD CKSUM TO LSB OF STARTING 


SEF4 


CB03 




ST 


A,CKSUM,P3 ? ADDRESS h. STORE NEW CKSUM 


WEF6 


32 




LD 


EA,P2 ; LD STARTING ADDR INTO EA 


8EF7 


40 




LD 


A,E 


; MSB OF STARTING ADDR— >A REG 


8EF8 


20298F 




JSR 


WRCHAR 5 WRITE MSB ON TAPE 


8EFB 


F303 




ADD 


• 

A, CKSUM, P3 ; ADD CKSUM TO MSB OF STARTING 


8EFD 


CB03 




ST 


A, CKSUM, P3 ; ADDRESS %k STORE NEW CKSUM 


SEFF 


060 1 


LOOPD: 


LD 


A,@+1,P2 5 LD DATA BYTE h. INCR PTR 


8F0J 


2029SF 




JSR 


WRCHAR ? WRITE DATA BYTE ON TAPE 


8F04 


F303 




ADD 


A, CKSUM, P3 5 ADD CHAR TO CKSUM 
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SF06 


CB03 


ST 


A» CKSUM, P3 


? 


STORE NEW CKSUM 


8F0S 


9B02 


OLD 


A,N,P3 


m 

> 


SET N^N-l 


8F0A 


7CF3 


BNZ 


LOOPD 


■ 


8t LOOP IF NOO 


8F0L. 


C.30 .d 


LD 


A » LKoUM » PS 


? 


LOAD CKbUn INTO A 


8F0E 


E4FF 


XOR 


' A,=OFF 


» 


TAKE 2''S COMPLEMENT 


8F10 


F401 


ADD 


A.s'Ol 


* 


OF CKSUM AND 


8F12 


20298F 


JSR 


WRCHAR 


• 


WRITE IT ON THE TAPE 


8F15 


8300 


LD 


EA» NB» Psi 


5 


LUAD NB & TEST FOR 0 


SF17 


58 


OR 


A,E 


* 

7 


WRITE NEXT RECORD JF 


8F18 


7CA1 


BNZ 


RECORD 


« 

» 


NBOO 




■ 


WRITE END 


RECORD ON THE 


TAPE 




SFIA 


C4A5 


LD 


A, =X'A5 


5 


NB=0 


8F 1 C 


20298F 


JSR 


WRCHAR 


? 


WRITE IE» CHAR UN TAPI 


8F1F 


C403 


LD 


A, =03 


« 

t 


WRITE END RECORD TYPI 


8F21 


2029SF 


JSR 


WRCHAR 




=X^03 ON TAPE 


8F24 


C4FD 


LD 


A,=X'FD 


m 

1 


WRITE 2'S COMPLEMENT 


SF^6 


20298F 


JSR 


WRCHAR 


m 

f 


CKSUM ON TAPE 


8F29 


5C 


RET 




• 

» 


RETURN 
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-PAGE 'WRTAPE - WRCHAR" 

•'WRCHAR' WRITES THE 8 BIT CHAR PRESENT IN THE A REG ON THE 
TAPE. THE PROGRAM DESTROYS REGISTER E, ASSUMES THAT 
POINTER P3 IS POINTING TO 1 BYTE OF AVAILABLE RAM (WRHTR), 
AND CALLS THE DELAY" SUBROUTINE. 



5 SUBROUTINE PARAMETERS INCLUDE: 





OOIA 
OOIA 
005F 




■ 

•> 

m 

t 

.SET 
. SET 
.SET 


WRCTR 

HLFDLY/26 
ENDDLY,26 
FULDLY,95 


LOC WHERE BIT COUNT WILL 
BE STORED RELAT-IVE TO P3 
; COUNT FOR. 1/2 BIT DELAY 
5 COUNT FOR END OF BIT DELAY 
; COUNT FOR 1 BIT DELAY 


8F2A 


48 


WRCHAR! 


LD 


E, A 


! SAVE CHAR IN E REG 


8F2B 
8F2D 


C40S 
CB04 




LD 
ST 


A, =08 

A, WRCTR, P3 


; SET BIT C0UNT=8 


8F2F 
SF30 

8F31 


40 

3E 

48 


SHIFT: 


LD 
RR 

LD 


A,E 
A 

E, A 


; XFER tMm TO A REG 
; ROTATE LSB TO BIT 7 
; WHERE IT CAN BE SENSED 
; SAVE ROTATED CHAR IN E 


8F32 


6412 




BP 


SENDO 


? TEST BIT TO BE WRITTEN 


8F34 


20538F 


SENDl: 


JSR 


PULSE 


; BIT=1. SEND CLOCK PULSE 


8F37 
8F39 


C41A 
20F78F 




LD 
JSR 


A,=HLFDLY 
DEl,AY 


; SET DLY C:0UNT=l/2 BIT TIME 
? DELAY TO MIDDLE OF BIT 


SF3C 


20538F 




JSR 


PULSE 


; WRITE DATA BIT=1 


8F3F 

OCA 1 
Or *T J. 


C41A 




LD 


A,=ENDDLY 

l.'C L.H T 


; DELAY TO END OF 

! RTT TTMP 
, C* X 1 1 J. 1 IC 


8F44 


7408 




BRA 


DECCNT 


; CONTINUE 


8F46 


20538F 


SENDO: 


JSR 


PULSE 


; BIT==:0. SEND CLOCK PULSE 


8F4B 


C45F 
20F78F 




LD 
JSR 


A,=FULDLY 
DELAY 


? SET DLY C0UNT=1 BIT TIME 
; DELAY 1 BIT TIME 


8F4E 


9B04 


DECCNT! 


DLD 


A, WRCTR, P3 


! DECREMENT BIT COUNT 


8F50 


7CDn 




BNZ 


SHIFT 


; REPEAT LINT I L BIT COLINT=0 


8F52 


40 




LD 


AtE 


; RESTORE ORIG CHAR TO A REG 


8F?3 


SC 




RET 




; RETURN 
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. PAGE 



WRTAPE - PULSE 



•'PULSE' WRITES 1 CLOCK OR DATA PULSE ON THE TAPE, CALLS THE 
'DELAY'- SUBROUTINE, AND ASSUMES THAT FLAGS F2 t< F3 HAv'E 
BEEN INITIALIZED TO THE STATE F2=0 AND F3=l. 



OOOF 
OOOF 



SUBROUTINE PARAMETERS INCLUDE: 



.SET 



SET 



Dl. 15 



D2, 15 



DELAY WHICH SETS DURATION 
OF POSITIVE EXCURSION 
DELAY WHtCH^SETS DURATION 
OF NEGAttVE EXCURSION 



OUTPUT PULSE GENERATED BY COMBINING 
F2 8< F3 OUTPUTS APPEARS AS FOLLOWS: 

4-+++++ 

+ Dl + 

++++++ 4- 

+ D2 + 
+-»■++++ 



BF54 3B04 



PULSE: OR 



St =04 



; SET F2=l, (F3=l) 



SFS6 C40F 
8F59 20F7SF 



LD 

JSR 



A,=D1 
DELAY 



; SET DELAY C0UNT=D1 
5 DELAY FOR Dl 



8F5B 39F3 

8F5D C40F 
8F5F 20F78F 

SF62 3B08 

8F64 5C . 



AND 

LD 

USR 

OR 



S,=0F3 

A,=D2 
DELAY 

S, =08 



21 



RET 

.INCLD RDTAPE 



; SET F2=F3=0 

; SET DELAY C0UNT=D2 

; DELAY FOR D2 

? SET F3=l. (F2=0) 

; RETURN 
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-PAGE 'RDTAPE" 

? • RDTAPE • INTERFACES THE INS8073. TO A CASSETTE RECORDER FOR 
; STORAGE /RETRIEVAL OF USER PROGRAMS. PROGRAMS WHICH MAY BE 
? SAVED AND RETRIEVED INCLUDE NIBL2 PROGRAMS AND ASSEMBLY 
5 LANGUAGE LM'S. 

; THE •'RDTAPE-' SUBROUTINE REQUIRES 6 BYTES OF SCRATCHPAD RAM 
; AND CALLS THE SUBROUTINES 'GETBIT' AND 'RCVCHR'. 

^-iWHEN A TAPE RESIDENT PROGRAM IS READ INTO RAM, THE USER MAY 
^T'-gPECIFY AN OPTIONAL DISPLACEMENT WHICH IS ADDED TO THE 
; STARTING ADDRESS OF EACH DATA RECORD. T«IS E^ATUF^fe ALLOWS 
? ASSEMBLY LANGUAGE LM'S AND NIBL2 PROGRAMS TO BE LOADED INTO 
? MEMORY AT LOCATIONS SPECIFIED AT LOAD TIME. 

; THE FORMAT OF THE DATA WRITTEN ON THE TAPE IS AS FOLLOWS: 

1> APPROXIMATELY 5 SECONDS OF O'S WHICH SERVE AS LEADER 
? SO THAT THE TAPE SPEED HAS TIME TO STABILIZE ON 

; PLAYBACK. THE LEADER ALSO ALLOWS THE RECEIVING 

; PROGRAM TO PROPERLY SYNC TO THE CLOCK PULSES. 

2) ID CHARACTER=X-A5 WHICH IDENTIFIES THE START 
OF EACH RECORD. 
; 3) A BYTE WHICH SPECIFIES THE RECORD TYPE: 
; DATA REC0RD=X'01 END REC0RD=X'03 

; 4) A BYTE WHICH IDENTIFIES THE TOTAL NUMBER 
; OF DATA BYTES IN EACH RECORD, N. 

; N CAN RANGE FROM 1 TO 256. (O - 255) 

! 5) THE LSB OF THE STARTING ADDRESS WHERE THE DATA 
; RECORD IS TO BE STORED. 

? 6) THE MSB OF THE STARTING ADDRESS WHERE THE DATA 
; RECORD IS TO BE STORED. 

; 7) I - 256 PROGRAM BYTES 

8> A SINGLE BYTE CHECKSUM <IN 2'S COMPLEMENT FORM) 
? OF ALL BYTES CONTAINED IN THE RECORD 

; EXCEPT FOR THE ID CHARACTER 



DISPLACEMENTS RELATIVE TO PTR P3i 



0000 
0001 

0002 

0004 
0005 



.SET 
RCVCTR 

ST ADR 

. SET 
SCOUNT 



CKSUM,0 
= I 

= 2 

N,4 

~ 5 



CHECKSI.JM FORMED IN MEMORY 

# OF CHAR BITS RECEIVED 
IN 'RCVCHR' SUBROUTINE 
RECORD STARTING ADDRESS 
(2 BYTES) 

# OF DATA BYTES IN DATA REC 
SAMPLE COUNT <# OF SAMPLES 
IN 'GETBIT' SUBROUTINE) 



00 2E 



; DISPLACEMENTS RELATIVE TO PTR P2: 

.SET X,46 ? STARTING ADDR DISPLACEMENT 
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0032 . SET 

FFOO . SET 

8F65 39FE, , RDTAPE s AND 

SF67 2700FF LD 

8F6A C400 REPEAT: LD 

SF6C 48 LD 

8F6D CBOO ST 

SF6F 20Ci8F SYNCLP: JSR 

8F72 E4A5 XOR 

SF74 7CF9 BNZ 

SF76 20E73F JSR 

SF79 F300 ADD 

8F7B CBOO ST 

8F7D 40 LD 

SF7E E401 XOR 

8F80 7C3S BNZ 

3F82 20E78F DREC: JSR 

8FS5 CB04 ST 

8F87 F300 ADD 

SFS9 CBOO ST 

SF8B 20E78F JSR 

8F8E OA PUSH 

8F8F F300 ADD 

9F9.1 CBOO ST 

8F93 20E78F JSR 

SF96 F300 ADD 

8F9S CBOO ST 

8F9A 38 POP 



? (NIBL2 VARIABLE X) 

Z»50 ? CHECKSUM ERROR FLAG 

; (NIBL2 VARIABLE Z) 



SRAM,OFFOO 5 SCRATCH RAM TO WHICH P3 
; POINTS 



P3,=SRAM 



DISABLE INTERRUPT^ 
POINT*fe TO SCRATCH RAM 



A, =0 
E, A 

A,CKSUM,P3 



LOAD 0 

SET CHAR=0 IN E REG 
SET CKSUM=0 



GETBIT 



A,=X 'A5 
SYNCLP 



RCVCHR 

A,CKSUM,P3 
A,CKSUM,P3 



SHIFT BIT INTO CHAR 

WHICH IS RETURNED IN 

A REG AND E REG 

TEST FOR CHAR=X'A5 

GOTO SYNCLP IF CHAROX-A5 

CHAR=X 'A5 

GET RECORD TYPE IN 

A REG «< E REG 

ADD CKSUM TO RECORD TYPE 

STORE NEW CKSUM 



A,E 



LOAD RECORD TYPE INTO A REG 



A, =01 
EREC 



TEST A REG FOR DATA RECORD 
DATA RECORD XMITTED IF A=01 



RCVCHR 



A=Oi. DATA RECORD BEING RECD 
GET N=# OF DATA BYTES IN 
THE RECORD IN THE A REG 



A» N, P3 



SAVE N 



A, CKSUM, P3 
A, CKSUM, P3 



ADD CKSUM TO N 
STORE NEW CKSUM 



RCVCHR 
A 



ADDRL— >A REG 

SAVE ADDRL ON STACK 



A, CKSUM, P3 
A, CKSUM, P3 



ADD CKSUM TO ADDRL 
STORE NEW CKSUM 



RCVCHR 

A, CKSUM, P3 

A, CKSUM, P3 



ADDRH — >A REG S< E REG 
ADD CKSUM TO ADDRH 
STORE NEW CKSUM 



A 



ADDRL—- >A REG. (ADDRH 
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IS ALREADY IN E REG) 



8F9B 


B22E 




ADD 


EA,X»P2 5 ADD IN DISPLACEMENT 












; <NIBL2 VARIABLE X) 


8F9D 


56 




PUSH 


P2 ; SAVE NIBL2 VARIABLE PTR 


8F9E 


46 




LD 


P2,E€» ; XFER REC STARTING ADDR TO P2 


ftF<?F 

Or .'r 


20F7P.F 




. I<^R 


Rr"yr*i-iR • 




8FA2 


CEOl 




ST 


H» J. t r £. 1 


v> 1 L'rttr. D T 1 c. «< J. nit^rv r I r\ 


8FA4 


F3O0 




ADD 


.A,CKSUM,P3 


' ADD CKSUM TO DATA BYTE 


8FA6 


CBOO 




ST 


A,CKSUM,P3j 1 


! STORE NEW CKSUM 


8FA8^ 


9B04 




DLD 




UtlL-K L-r1Hr\ U-UUIN i » IM » « 












! 1 OAn TNTn A RFll 


8FAA 


7CF3 




BNZ 




TiPT MPyT HAT A RVTF TF 

} IJC 1 INC. A 1 UM IM CJlIC x~ 












\ COUNT, N, IS NOT 0 












! CHAR COUNT=N=0 


8FAC 


5E 




POP 


P2 ' 


; RESTORE NIBL2 VARIABLE PTR 


8FAD 


20E78F 




JSR 


RCVCHR 


\ TAPE CKSUM— >REG A 


SFBO 


F300 




ADD 


A,CKSUM,P3 


; ADD CKSUM STORED IN 












; MEMORY TO TAPE CKSUM 


8FB2 


6CB6 




BZ 


REPEAT ! 


; IF A REG=0 BOTH CHECKSUMS 












! MATCH; GET A NEW RECORD 












; A REG O 0. CHECKSUMS DIFFER 


8FB4 


840 1 00 


SERR! 


LD 


EA,=Ol 


; SET ERROR FLAG, 


SFP7 


8A32 




ST 


EA7Z,P2 


; NIBL2 VARIABLE Z, = 1 


8FB9 


5C 




RET 




! RETURN 










? A REG <> 0. END RECORD RECD 


8FBA 


20E78F 


EREC: 


JSR 


RCVCHR ! TAPE CKSUM — >A REG 


8FBn 


F300 




ADD 


A,CKSUri>P3 


! ADD CKSUM STORED IN 










; MEMORY TO TAPE CKSUM 


8FBF 


7CF3 




BNZ 


SERR 


; IF A REG=0 CHECKSUMS MATCH 












? A REG=0. CHECKSUMS MATCH 


SFCl 


5C 




RET 




; RETURN 
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-PAGE 'RDTAPE - GETBIT' 

5 'GETBIT- RECEIVES 1 BIT INTO BIT 7 OF THE E REGISTER. (THE 

5 E REGISTER MUST BE SET TO 0 BEFORE A CHARACTER CAN B£ 

? FORMED). •'GETBIT' IS CALLED 8 TIMES BY THE 'RCVCHR 

; SUBROUTINE IN ORDER TO RECIEVE AN 8 BIT CHARACTER INTO THE 

; E REGISTER. "GETBIT' IS ALSO RE*='EATEDLY CALLED BY THE 

; "RDTAPE" PROGRAM SYNCHRONIZATION LOOP IN ORDER TO LOCATE 

; THE START OF RECORD CHARACTER (X'A5'). 

; INVERTEID DATA AND CLOCK PULSES ARE RECEIVED jON THE SB ItNfPUl 

5 (WHEN SB=0 DATA/CLOCK ARE PRESENT). 

; "GETBIT" ASSUMES THAT P3 IS POINTING TO 1 BYTE OF AVAILABLE 

1 SCRATCHPAD RAM (SCOUNT), AND CALLS THE SUBROUTINE "DE1.AY". 

; GETBIT SUBROUTINE PARAMETERS: 

0039 HDLYl = 57 5 DELAY TO START OF FIRST SAMPLE 

; SCOUNT IS THE SAMPLE COUNT (# OF SAMPLES 
? TAKEN BEFORE A "0" DATA BIT IS RETURNED) 



SFC2 


C40C 


GETBIT: 


LD 


A, =12 


a 

» 


SET SAMPLE C0UNT=9 


8FC4 


CB05 




ST 


A » SCOUNT, P3 






8FC6 


06 


GETCLK: 


LD 


A,S 


a 

■» 


WAIT FOR CLOCK PULSE ON 












m 

« 


SB INPUT 






a a • • 

> » » » 


OR 


3, =04 


a 
> 


***PULSE F2******** 






; ; ; ; 


AND 


S,=OFB 


a 




8FC7 


D420 




AND 


A, =020 


a 

* 


MASK OFF SB 


SFC9 


7CFB 




BNZ 


GETCLK 




WAIT UNTIL SB GOES LOW 


8FCB 


C439 




LD 


A,=HDLY1 




CLOCK PULSE IS PRESENT 


8FCD 


20F7SF 




JSR 


DELAY 




DELAY TO START OF 














SAMPLE TIME 


SFDO 


06 


SMPL: 


LD 


A,S 




SAMPLE INVERTED BIT ON SB 






. • .a ■ 

7 > > f 


OR 


S,=08 


a 

7 


»«*PULSE F3**»**»* 






a a a a 

1 1 J t 


AND 


S,=0F7 


a 

1 




8FD1 


D420 




AND 


A. =020 






8FD3 


6C08 




BZ 


RETl 


a 


TEST SAMPLED BIT =0 OR 1 














SAMPLED BIT=0 


SFD5 


9B05 


SMPLO : 


DLD 


A, SCOUNT, P3 




DECREMENT SAMPLE COUNT 8< 


©FD7 


7CF7 




BNZ 


SMPL 




CONTINUE IF COUNTOO 












a 


FINAL VALUE OF DATA BIT=0 


SFD9 


40 


RETO: 


LD 


A,E 


a 


LOAD CHARACTER 
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8FDA 3C SR 



BFDB 48 LD 

8FDC 5C RET 

8FDD 06 RETl! LD 

8FDE D420 AND 

8FE0 6CFB BZ 

8FE2 40 LD 

8FE3 3C SR 

8FE4 DCSO OR 

SFE6 48 LD 

8FE7 5C RET 



A ; INTO THE A REG «< SHIFT 

? IT RIGHT BY 1 BIT. 

; BIT 7 =0 BY DEFAULT 

E,A ; PUT CHAR INTO E REG 

; RETURN 

; FINAL VALUE OF DATA BIT=1 

A,S 5 WAIT UNTIL SB=1 

A,=0;20 ; (DATA PULSE GOES AWAY) 

RErr 

A,E ? LOAD CHARACTER 

A ; INTO THE A REG SHIFT 

A, =080 ? IT RIGHT BY 1 BIT 

; SET BIT 7 =1 

E,A 5 PUT CHAR INTO E REG 

; RETURN 
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.PAGE ^RDTAPE - RDVCHR' 

; 'RDVCHR' RECEIVES ONE 8 BIT CHARACTER INTO THE A REGISTER 

; AND THE E REGISTER. 

; "RCVCHR^ ASSUMES THAT PTR P3 IS POINTING TO 1 BYTE OF 

5 AVAILABLE SCRATCHPAD RAM (RCVCTR), AND CALLS THE SUBROUTINE 

; ^GETBIT^ 8 TIMES IN ORDER TO RECEIVE A COMPLETE 8 BIT 

5 CHARACTER. 

; PARAMETERS FOR --RCVCHR'- INCLUDE: 

; RCVCTR IS THE COUNTER UHICH COUNTS 
5 THE NUMBER OF BITS RECEIVED 



8Ft8 
8FEA 


C408 RCVCHR: 
CBOl 


LD 
ST 


A»=08 

A, RCVCTR, P3 


; SET BIT COUNT =8 


8FEC 
8FFE 


C400 
48 


LD 
LD 


A,=0 
E, A 


5 CLEAR THE E REG WHERE 
; CHAR WILL BE FORMED 


8FEF 


20C18F L00P2: 


JSR 


GETBIT 


5 GET 1 BIT INTO E REG 


8FF2 


9B01 


DLD 


A, RCVCTR, P3 


; DECREMENT BIT COUNT 


8FF4 


7CF9 


BNZ 


L00P2 


; CONTINUE UNTIL COUNT=^ 


SFF6 


40 


LD 


A,E 


; PUT CHAR INTO A REG 


8FF7 


5C 


RET 

. INCLD 


DELAY 


! RETURN 
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-PAGE ^ DELAY ^ 

; ^ DEL AY' GENERATES A DELAY BY DECREMENTING A DELAY COUNT 

! WHICH HAS BEEN PREVIOUSLY LOADED INTO THE A REGISTER. 

5 WHEN EXECUTED FROM EXTERNAL MEMORY, THE, TOTAL TIME DELAY 

; (UCYCLES) GENERATED BY THE SUBROUTINE, INCLUDING THE 

; PREVIOUSLY EXECUTED INSTRUCTIONS 'JSR DELAY' S< •'LD 

; A,=DELAYCOUNT', IS AS FOLLOWS: 

5 TOTAL DELAY =^39 + 14 * DELAYCOUNT 

? WHERE DELAYCOUNT RANGES FROM 1 TO 255. 



8FF8 FCOl 



8FFA 7CFC 



DELAY: 



SUB 



BNZ 



A, =01 



DELAY 



DECREMENT PREVIOUSLY 
LOADED DELAY COUNT 
LOOP UNTIL COUNT = 0 



8FFC 5C 



RET 



RETURN 



23 



0000 



• END 
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ADRMSG 


8En 


ASCILD 


8D81 


* 


ATOFl 


8E24 




AT0F2 


8E39 


BllO 


8D81 » 


B4800 


8D88 




BITDLY 


005E 




BYTCTR 


0009 


CKSUM 


0000 


CONBYT 


8E73 




CONN IB 


8E80 




CGNVi 


8E66 


C0NV2 


8E6D » 


CTR 


0004 




D 


0006 




Dl 


OOOF 


D2 


OOOF 


DECCNT 


8F4E 




DELAY 


8FF8 




DREC 


8FS2 » 


DTAREC 


8DDA 


ENDDLY 


OOIA 




EREC 


8FBA 




FDELAY 


FFEC 


FULDLY 


005F 


GEIO 


8Ey A 




GECO 


0933 




GETBIT 


8FC2 


GETBYT 


8E17 


GETCLK 


8FC6 




OeTDTA 


8F9F 




GT255 


8ECE 


H 


OOOE 


HDLYl 


0039 




HEX 2 AS 


8E3F 


* 


HLFDLY 


OOIA 


INIT 




LI 


8E06 




LDP2 


8EA1 




LDRCNT 


09C4 


LDRCTR 


0005 


iw <i2! 5 


8EC:3 


* 


LOOPl 


8D92 




L00P2 


8FEF 


LOOPA 


8EA9 


LOOPD 


8EFF 




LTIO 


8E86 




MCKSUM 


0001 


MSN 


0003 


N 


0004 




NB 


0000 




NBYTES 


0000 


NEXT 


8DSD 


NOTDTA 


8DEA 




NSTOPl 


8D95 




NST0P2 


8E1A 


NSTOP3 


8E2F 


NXTl 


8ED9 




NXTBYT 


8DDD 




ORNIBL 


8E3B 


PRINT 


8E71 


PRT2 


8E3F 


* 


PRT4 


8E4E 




PULSE 


8F54 


RCVCHR 


8FE8 


RCVCTR 


0001 




RDTAPE 


8F65 




RECORD 


8EBB 


RECTST 


8DFC 


RECTYP 


0002 




REPEAT 


8F6A 




RETO 


8FD9 * 


RETl 


8FDD 


SCOUNT 


0005 




SENDO 


8F46 




SENDl 


8F34 * 


SERR 


8FB4 


SHIFT 


8F2F 




SHIFTl 


8E26 




SMPL 


8FD0 


SMPLO 


8FD5 # 


SNDLDR 


8EA4 




SRAM 


FFOO 




STADR 


0002 » 


STORE 


8E8C 


SYNCLP 


8F6F 




WRCHAR 


8F2A 




WRCTR 


0004 


WRTAPE 


SE8F # 


X 


002E 




Y 


0030 




Z 


0032 



NO ERROR LINES 
SOURCE CHECKSUM = FEF2 
OBJECT CHECKSUM = 0DA5 

I NPUT F I LE 1 : ASSYL ANG . SRC ON UT8070 
LISTING FILE 1 : ASSYL ANG. LST ON UT8070 
OBJECT FILE 1 : ASSYL ANG, LM ON UT8070 
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